IBM OEM Software Product Sampler CD For PC Manufacturers

home *** CD-ROM | disk | FTP | other *** search

/ IBM OEM Software Product … CD For PC Manufacturers / IBM OEM Software - Product Sampler CD for PC Manufacturers.iso / InternetIntranets / Notes / LOTUS026.DSK / PUBWEB45.NTF (.txt) < prev next >

Wrap

Lotus Notes Database | 1997-07-29 | 1MB | 5,098 lines

Server Web Navigator 4.5 #1StdR45WebNavigator FOLDER_DIRECTORY_OBJECT My Bookmarks CN=Lotus Notes Template Development/O=Lotus Notes ` d0Q NE|$NB }&lemH =I}[ x >Y5.D Ml!|k Lotus NotesCN=Lotus Notes Template Development/O=Lotus NotesCN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes QPAL$ $Modified 1S2S3S $TITLE$FormPrivs$FormUsers$Body$Flags$Class$Modified$Comment$AssistTrigger$AssistType$AssistFlags$UpdatedBy$$FormScript_O 0SL1S3724 $TITLE CN=Dave Newbold/O=Iris ########################################################## URLDoclinkURLDoclink URLDoclink CN=Winnie Liang/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes################### CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes################## CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes################## CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes################## CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes################## Averaging Agent 1SfL3 CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes@q_ ####################################################### }&lemH Lotus NotesCN=Lotus Notes Template Development/O=Lotus Notes###### (Home) I9IIqqq CN=Paul DiCristina/O=IrisCN=Dave Newbold/O=IrisCN=Teresa Deane/O=IrislsR#################################################### (AverageRating)z URLRating$Conflict$REF Person Rating Form average L1S2S3S4S5S6S1 URLURLRatingRating& CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes############## ########################################################## ########################################################## O=Lotus Notes O=Lotus Notes PURSAFO |.:#U O=Lotus Notes CN=Lotus Notes Template Development/O=Lotus Notes PURSAFO Fde!f^^ $ACLDigest O=Lotus Notes O=Lotus Notes PURSAFO |.:#U O=Lotus Notes CN=Lotus Notes Template Development/O=Lotus Notes PURSAFO Fde!f^^ $TITLE $INFO $BODY O=Lotus Notes O=Lotus Notes PURSAFO |.:#U O=Lotus Notes CN=Lotus Notes Template Development/O=Lotus Notes PURSAFO Fde!f^^ sZ%!ZM} $Flags O=Lotus Notes O=Lotus Notes PURSAFO |.:#U O=Lotus Notes CN=Lotus Notes Template Development/O=Lotus Notes PURSAFO Fde!f^^ sZ%!ZM} %z.@M &rwe6 $Flags O=Lotus Notes O=Lotus Notes PURSAFO |.:#U O=Lotus Notes CN=Lotus Notes Template Development/O=Lotus Notes PURSAFO Fde!f^^ sZ%!ZM} $Flags O=Lotus Notes O=Lotus Notes PURSAFO |.:#U O=Lotus Notes CN=Lotus Notes Template Development/O=Lotus Notes PURSAFO Fde!f^^ sZ%!ZM} waEK}=I $Flags '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Initialize '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:Initialize:1:10 Sub Initialize REM =============Average agent declarations ================ Dim s As New NotesSession Dim db As NotesDatabase Dim HidView As NotesView Dim AveView As NotesView Dim CurDoc As NotesDocument Dim NextDoc As Notesdocument Dim LastDoc As Notesdocument Dim SumRating As Integer Dim AveRating As Double Dim TotalRating As Integer Dim CurURL As String Dim NextURL As String Dim AveCol As NotesDocumentCollection Dim cutoff As New NotesDateTime("12/01/94") Dim x As Integer Dim allratings As notesdocumentcollection REM ============ Rating Invalidation Declarations ============ Dim RatingsCol As NotesDocumentCollection Dim RatingDoc As NotesDocument Dim HtmlDoc As NotesDocument Dim n As Integer Dim RatingURL As String Dim HtmlURL As String Dim RatingDateStr As String Dim LastModifiedStr As String Dim RatingDate As Variant Dim LastModified As Variant Dim Ratingfield As Variant Dim adminview As NotesView Dim admindoc As NotesDocument Dim refresh As Variant Dim dt As NotesDateTime Dim URLdoclink As NotesRichTextItem Dim RefreshDoc As NotesDocument Set db = s.CurrentDatabase Set allratings = db.Search("Select form = ""Person Rating Form""", cutoff, 0) '/* '** Verify that there are ratings documents in the database '*/ If allratings.count <> 0 Then Set AveCol = db.Search("SELECT Form = ""Person Rating Form"" & average != """"", cutoff, 0) Set AveView = db.GetView("(AverageRating)") Call AveView.Refresh() '/* '** This is initialization code. Topten is a flag that notifies the top rating view if the rating document '** for a URL is one of the top rated pages. When recalculating the average ratings and reselecting the '** top ten, topten needs to be reset to empty. Also, the field, average, is reset to empty. '*/ If AveCol.Count <> 0 Then For j=1 To avecol.count Set CurDoc = AveCol.GetNthDocument(j) CurDoc.topten = "" CurDoc.average = "" Call CurDoc.Save(True, False) Next End If Set allratings = db.Search("Select form = ""Person Rating Form"" & Rating != """"", cutoff, 0) REM Here is the code that does the actually averaging. REM This if-statements makes sure that there are ratings before the agents tries REM to average. If allratings.count <> 0 Then REM We need to get a list of all the URLs in the database that have REM been rated. We get an alphabetically ordered list of those URLs from REM the hidden view, (AllRating). Set HidView = db.GetView("(AllRating)") Set CurDoc = HidView.GetFirstDocument() Set LastDoc = HidView.GetLastDocument() RatingField = CurDoc.GetItemValue("Rating") REM Need to initialize the variable, SumRating, TotalRating, and AveRating. REM These variable keep running totals for each rated URL so every time REM a new URL is being averaged, these variables need to be reset. SumRating REM keeps a running sum of all the ratings for a URL. TotalRatings keeps REM a running total of the number of people who have rated a URL. AveRating REM is the average rating of one URL. REM Some of the recommended documents has no ratings. The documents are REM automatically made by agents. They are not counted into the average rating. If Cstr(RatingField(0)) <> "" Then SumRating = Cint(Ratingfield(0)) TotalRating = 1 AveRating = 0 Else SumRating = 0 TotalRating = 0 AveRating = 0 End If REM This loop goes through each rated URL and find the average for each. While CurDoc.NoteID <> LastDoc.NoteID Set NextDoc = HidView.GetNextDocument(CurDoc) RatingField = CurDoc.GetItemValue("URL") CurURL = Cstr(RatingField(0)) RatingField = NextDoc.GetItemValue("URL") NextURL = Cstr(RatingField(0)) REM Since, in the HidView, the URLs are ordered alphabetically, all the URLs REM that are the same will be grouped together. So, when going through REM the URLs in order from the view, once we find a URL different than the REM previous one retrieved, we know we have to start a new average REM calculation. When new URL is reached, an average rating is calculated REM and the value found is placed into the average field in the last rating REM document that had the previous URL. If a new URL is not reached, then REM we just add its rating to the running sum, SumRating, and increment REM TotalRating by one. If CurURL = NextURL Then RatingField = NextDoc.GetItemValue("Rating") If Cint(RatingField(0)) <>0 Then SumRating = SumRating + Cint(RatingField(0)) TotalRating = TotalRating + 1 Set CurDoc = NextDoc Else Set CurDoc = NextDoc End If Else REM Only if people rated a URL can we find an average rating for the URL. This REM if statement checks to make sure that the URL did have ratings. If TotalRating <> 0 Then AveRating = SumRating / TotalRating REM In general, the more people who rate a Web page, then REM the URL is probably a good one. Therefore, in this REM code, if 6 or more people have rated a URL, then REM the average rating of the URL is increased by 1. If 3 REM or more people rate a URL, then the average rating of the REM URL is increased by 0.5. If TotalRating >= 6 Then AveRating = AveRating + 1 Elseif TotalRating >= 3 Then AveRating = AveRating + 0.5 End If CurDoc.average = Cstr(Round(AveRating, 1)) CurDoc.number = Cstr(TotalRating) Call CurDoc.Save(True,False) Set CurDoc = NextDoc RatingField = CurDoc.GetItemValue("Rating") REM Again, as above, because we are starting to calculate REM a new average, initialization is needed. If Cstr(RatingField(0)) <> "" Then SumRating = Cint(RatingField(0)) TotalRating = 1 AveRating = 0 Else SumRating = 0 TotalRating = 0 AveRating = 0 End If Else REM If the total number of people who have rated the URL REM is zero, then we just get the next URL and start REM a new average calculation. Set CurDoc = NextDoc RatingField = CurDoc.GetItemValue("Rating") REM Again, initalization code... If Cstr(RatingField(0)) <> "" Then SumRating = Cint(RatingField(0)) TotalRating = 1 AveRating = 0 Else SumRating = 0 TotalRating = 0 AveRating = 0 End If End If End If Wend REM Because the way the loop is structured, when we reach the last URL in REM the view, an average is not calculated. So, this code is needed to REM calculate the average for the last URL. If TotalRating <> 0 Then AveRating = SumRating / TotalRating If TotalRating >= 6 Then AveRating = AveRating + 1 Elseif TotalRating >= 3 Then AveRating = AveRating + 0.5 End If CurDoc.average = Cstr(AveRating) CurDoc.number = Cstr(TotalRating) Call CurDoc.Save(True, False) End If REM Now, take the first 10 ratings from the ($AverageRating) and set their REM topten field to 1 so that the Top Rating View will display those REM ratings in its view. Call AveView.Refresh() Set AveCol = db.Search("SELECT Form = ""Person Rating Form"" & average != """"", cutoff, 0) If AveCol.Count <> 0 Then Set CurDoc = AveView.GetFirstDocument() Set LastDoc = AveView.GetLastDocument For x = 2 To 11 CurDoc.topten = "1" Call CurDoc.Save(True, False) If CurDoc.NoteID = LastDoc.NoteID Then Exit For Else Set CurDoc = AveView.GetNthDocument(x) End If Next End If End If End If End Sub H H T ,x }\ ,x }\ O=Lotus Notes O=Lotus Notes PURSAFO |.:#U O=Lotus Notes CN=Lotus Notes Template Development/O=Lotus Notes PURSAFO Fde!f^^ $TITLE $AssistType $AssistLastRun $AssistDocCount $AssistFlags $AssistTrigger $AssistInfo $AssistQuery $AssistAction $AssistAction_Ex $Flags Times New Roman &Arial Using Server Web Navigator 4.5 @ @@ @ `@ ` @ @@ @@@@@ @`@@` ` @` `@@`@ ``@`` The Server Web Navigator database is designed to allow you to access information on the World Wide Web. For more information on using the Server Web Navigator database, click the User's Guide icon on the Home navigator. Types of documents There are three types of documents in the Server Web Navigator database: Web page -- A Web page is a document that the Web Navigator retrieves from an Internet server and translates into a Notes document. The Web pages can contain HTML documents, FTP file attachments or Gopher menu lists. Web pages usually contain links that you can click to jump to other Web pages. Most of the documents in the database are Web pages. Web Tour document -- A Web Tour is a Notes document that contains the saved history list of Web pages you have previously opened. You can create Web Tours and re-open them later. Web Tours are stored inside the database for anyone to use. Rating document -- A rating document is a Notes document that appears in one of the Recommended views available from the Recommended navigator (see below). You use rating documents to find out which Web pages your coworkers have recommended. Views and folders The Web Navigator has been designed with built-in graphical navigators to help you locate documents in the database, as well as to help you browse the Web. When you first open the Web Navigator database, you will see the Home navigator. From the Home navigator , click these icons: Sampler icons -- Displays hot lists of Web pages categorized by topic. Database views -- Displays the View navigator (see below). Recommended -- Displays the Recommended navigator (see below). Directory Search -- Opens a search form that allows you to perform searches using several Internet search engines. Open URL -- Opens the Open URL dialog box where you can open Web pages by specifying their URL. User's Guide -- Opens the Web Navigator User's Guide. Our Home - Opens your company's home page, if one exists. From the View navigator , click these buttons: My Bookmarks --Displays the contents of your personal "My Bookmarks" folder. You can also drag and drop Web pages onto this icon to add a link to your Bookmarks folder. Folders -- Displays the traditional folders in the folder pane instead of the View navigator. All Documents -- Displays all the public Web pages in this database. By Host -- Displays all the public Web pages sorted by their host site. File Archive -- Displays all the public Web pages with file attachments. Web Tours -- Displays all the saved Web Tour documents. Recommended -- Displays the Recommended navigator (see below). Back to Home -- Displays the Home navigator. From the Recommended navigator , click these buttons: By Category -- Displays the rating documents sorted by the categories the reviewer chose in the Recommendation dialog box. This view is useful for finding pages under specific topics. By Reviewer -- Displays the rating documents sorted by the name of the reviewer. This view is useful if you want to know what pages a particular person recommended. Top Ten -- Displays the top ten pages with the highest cumulative ratings. This view is useful for seeing the top-rated Web pages. Database views -- Displays the View navigator. Back to Home -- Displays the Home navigator. O=Lotus Notes O=Lotus Notes PURSAFO |.:#U O=Lotus Notes CN=Lotus Notes Template Development/O=Lotus Notes PURSAFO Fde!f^^ $INFO $BODY Recommended\By Reviewer@ invalid 3S4S6S8S9S Author 0S0E $35$36ContentTitleRatingComments$Conflict$REF Person Rating Form Author Rating L1S2S3S4S5S6S7S8S9S10S11S1+ $36ContentRating invalid 3S4S6S8S9S Author 0S0E ContentTitleTitleRatingRatingCommentsComments& CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##### By Host| Main Viewp 6S9S $32Title$Conflict HTMLForm $Title HTMLFormDoc Guided Tour Privacy_Flags PrivatePage DeferredObject Status httpstatus httpstatus L1S20S30S1 $32Host2 6S9S TitleDocument Title& CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes################ (Opinions) URLtitle$34Comments$Conflict$REF Opinion Form L1S2S3S1$ URLtitleComments URLtitle URLtitle Comments Comments URLtitleDate$34Type( CommentsResource Name& CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes ########################################################## HTMLFormDCEDEE23F754A7DE82DC7DE7D6F2C05E9A CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesDCB704CD1504800A73571DEA5B447D5C67843E4301C6054E658E2C2D65E5AC9DCN=Lotus Notes Template Development/O=Lotus Notes######################## ########################################################## Categori_zeK _Edit Document Send Docu_ment _Open URL _Home WebFolders 0S0E (Home) 0S0E _Directory Search Search 0S0E _Forward _Move to Folder... _Remove from Folder... Home NavigatorX WebFolders 0S0E (Home) 0S0E WebFolders| 0S0E Views NavigatorKb WebFolders 0S0E (All Documents) 0S0E WebFolders| 0S0E Recommended Navigator WebFolders 0S0E (Recommended) 0S0E WebFolders| 0S0E O=Lotus Notes O=Lotus Notes PURSAFO |.:#U O=Lotus Notes CN=Lotus Notes Template Development/O=Lotus Notes PURSAFO Fde!f^^ $TITLE $Index $Formula $FormulaClass $VIEWFORMAT $Comment $ACTIONS Categori_zeK _Edit Document Send Docu_ment _Open URL _Home WebFolders 0S0E (Home) 0S0E _Directory Search Search 0S0E _Forward _Move to Folder... _Remove from Folder... Home NavigatorX WebFolders 0S0E (Home) 0S0E WebFolders| 0S0E Views NavigatorKb WebFolders 0S0E (All Documents) 0S0E WebFolders| 0S0E Recommended Navigator WebFolders 0S0E (Recommended) 0S0E WebFolders| 0S0E O=Lotus Notes O=Lotus Notes PURSAFO |.:#U O=Lotus Notes CN=Lotus Notes Template Development/O=Lotus Notes PURSAFO Fde!f^^ $TITLE $Index $Formula $FormulaClass $VIEWFORMAT $Comment $ACTIONS Categori_zeK _Edit Document Send Docu_ment _Forward Home( 0S0E AdministrationH WebAdmin 0R4S NewsgroupsJ internet.nsf 0S0E _Move to Folder... _Remove from Folder... O=Lotus Notes O=Lotus Notes PURSAFO |.:#U O=Lotus Notes CN=Lotus Notes Template Development/O=Lotus Notes PURSAFO Fde!f^^ $TITLE $Index $Formula $FormulaClass $VIEWFORMAT $Comment $ACTIONS Categori_zeK _Edit Document Send Docu_ment _Forward Home( 0S0E AdministrationH WebAdmin 0R4S NewsgroupsJ internet.nsf 0S0E _Move to Folder... _Remove from Folder... O=Lotus Notes O=Lotus Notes PURSAFO |.:#U O=Lotus Notes CN=Lotus Notes Template Development/O=Lotus Notes PURSAFO Fde!f^^ 8+U5u $TITLE $Index $Formula $FormulaClass $VIEWFORMAT $Comment $ACTIONS Recommended\Top Ratings|Top Ratings Titleaveragenumber$Conflict$REF Person Rating Form average topten Rating L1S2S3S4S5S6S7S8S9S10S11S12S13S14S15S1! averagenumber TitleDocument TitleaverageAveragenumber# of ratings& CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes############################################### Web Tours Tour_Author 0S0E TitleTour_Date$35$Conflict$REF Guided Tour L1S1 Title$35 Title Title Tour_Date Tour_Date TitleTitleTour_DateDate$35Author6 Tour_Author 0S0E CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##################### Web TourGuided TourDH Lotus NotesCN=Lotus Notes Template Development/O=Lotus Notes######################### SearchSearchCD CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##### Lotus NotesCN=Lotus Notes Template Development/O=Lotus Notes###### (Home)G3 Lotus NotesCN=Lotus Notes Template Development/O=Lotus Notes############## File Archive|File Archive/O $44NULL$42$Conflict PrivatePage Privacy_Flags L1S13S $44$42 $44$42 $44$42 $44File Name NULL$42File Size CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes############################ ########################################################## ########################################################## Categori_zeK _Edit Document Send Docu_ment _Open URL _Home WebFolders 0S0E (Home) 0S0E _Directory Search Search 0S0E _Forward _Move to Folder... _Remove from Folder... Home NavigatorX WebFolders 0S0E (Home) 0S0E WebFolders| 0S0E Views NavigatorKb WebFolders 0S0E (All Documents) 0S0E WebFolders| 0S0E Recommended Navigator WebFolders 0S0E (Recommended) 0S0E WebFolders| 0S0E O=Lotus Notes O=Lotus Notes PURSAFO |.:#U O=Lotus Notes CN=Lotus Notes Template Development/O=Lotus Notes PURSAFO Fde!f^^ $TITLE $Index $Formula $FormulaClass $VIEWFORMAT $Comment $ACTIONS Categori_zeK _Edit Document Send Docu_ment _Open URL _Home WebFolders 0S0E (Home) 0S0E _Directory Search Search 0S0E _Forward _Move to Folder... _Remove from Folder... Home NavigatorX WebFolders 0S0E (Home) 0S0E WebFolders| 0S0E Views NavigatorKb WebFolders 0S0E (All Documents) 0S0E WebFolders| 0S0E Recommended Navigator WebFolders 0S0E (Recommended) 0S0E WebFolders| 0S0E O=Lotus Notes O=Lotus Notes PURSAFO |.:#U O=Lotus Notes CN=Lotus Notes Template Development/O=Lotus Notes PURSAFO Fde!f^^ z<&;X; g?~wC $TITLE $Index $Formula $FormulaClass $VIEWFORMAT $Comment $ACTIONS WebRefreshFailed Refresh of Title failed Title Host" 3S4S9S10S15S16S &Arial '++LotusScript Development Environment:2:5:(Options):0:66 Option Public '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Initialize '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:Initialize:1:10 Sub Initialize End Sub HTMLForm' Title: Title Title You must enter a subject for your document. Title URL: Stub/Status: HTTPStatus Type: Host: File Name: 0S0E FileName SaveOptions Subject Subject 1S2S3S Subject Title Subject _Homej0 (Home) 0S0E _Open 0S0E 0S0E 0S0E H_istory 0S0E _Search Search Internet server $Index 8S9S10S11S $IndexY 0S0E 0S0E _Reload 0S0E '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Click(Source As Button) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As BUTTON Set Source = Bind(Objectname_) On Event Click From Source Call Click End Sub '++LotusScript Development Environment:2:2:Click:1:12 Sub Click(Source As Button) Dim w As New NotesUIWorkspace Dim uidoc As NotesUIDocument Dim s As New NotesSession Dim doclocal As notesdocument Dim db As NotesDatabase Set db = s.CurrentDatabase Dim PersonDoc As New NotesDocument(db) Dim URLtitle As String Dim URLname As String Dim Content As String Dim rating As String Dim Word As String Dim Comments As String Dim Author As String Dim RatingDate As String Dim rtitem As NotesRichTextItem Set uidoc = w.CurrentDocument Set doclocal = uidoc.document beginagain: If( w.DialogBox("Opinion Form Layout",True, True, "Recommendation")) Then Call doclocal.save(True, True) If doclocal.Rating(0)<>"" Then Rating = doclocal.Rating(0) URLtitle = doclocal.Title(0) URLname = doclocal.URL(0) Content = doclocal.Content(0) Rating = doclocal.Rating(0) Word = doclocal.getitemvalue("Word_Repr.")(0) Comments = doclocal.Comments(0) Author = doclocal.Author(0) RatingDate = doclocal.RatingDate(0) doclocal.removeitem "Rating" doclocal.removeitem "Word_Repr." doclocal.removeitem "Content" doclocal.removeitem "Comments" doclocal.removeitem "Author" doclocal.removeitem"RatingDate" PersonDoc.AppendItemValue "Form", "Person Rating Form" PersonDoc.AppendItemValue "Title", URLtitle PersonDoc.AppendItemValue "URL", URLname PersonDoc.AppendItemValue "Content", Content PersonDoc.AppendItemValue "Rating", Rating PersonDoc.AppendItemValue "Word_Repr.",Word PersonDoc.AppendItemValue "Comments", Comments PersonDoc.AppendItemValue "Author", Author PersonDoc.AppendItemValue "RatingDate", RatingDate PersonDoc.Save True,False Print "Finished making a rating." Print "Check 'Recommended' View of this database to see rating" Else Msgbox "Unable to create rating document. No rating specified." Goto beginagain End If Else Exit Sub End If End Sub Re_commend'++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Click(Source As Button) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As BUTTON Set Source = Bind(Objectname_) On Event Click From Source Call Click End Sub '++LotusScript Development Environment:2:2:Click:1:12 Sub Click(Source As Button) Dim w As New NotesUIWorkspace Dim uidoc As NotesUIDocument Dim s As New NotesSession Dim doclocal As notesdocument Dim db As NotesDatabase Set db = s.CurrentDatabase Dim PersonDoc As New NotesDocument(db) Dim URLtitle As String Dim URLname As String Dim Content As String Dim rating As String Dim Word As String Dim Comments As String Dim Author As String Dim RatingDate As String Dim rtitem As NotesRichTextItem Set uidoc = w.CurrentDocument Set doclocal = uidoc.document beginagain: If( w.DialogBox("Opinion Form Layout",True, True, "Recommendation")) Then Call doclocal.save(True, True) If doclocal.Rating(0)<>"" Then Rating = doclocal.Rating(0) URLtitle = doclocal.Title(0) URLname = doclocal.URL(0) Content = doclocal.Content(0) Rating = doclocal.Rating(0) Word = doclocal.getitemvalue("Word_Repr.")(0) Comments = doclocal.Comments(0) Author = doclocal.Author(0) RatingDate = doclocal.RatingDate(0) doclocal.removeitem "Rating" doclocal.removeitem "Word_Repr." doclocal.removeitem "Content" doclocal.removeitem "Comments" doclocal.removeitem "Author" doclocal.removeitem"RatingDate" PersonDoc.AppendItemValue "Form", "Person Rating Form" PersonDoc.AppendItemValue "Title", URLtitle PersonDoc.AppendItemValue "URL", URLname PersonDoc.AppendItemValue "Content", Content PersonDoc.AppendItemValue "Rating", Rating PersonDoc.AppendItemValue "Word_Repr.",Word PersonDoc.AppendItemValue "Comments", Comments PersonDoc.AppendItemValue "Author", Author PersonDoc.AppendItemValue "RatingDate", RatingDate PersonDoc.Save True,False Print "Finished making a rating." Print "Check 'Recommended' View of this database to see rating" Else Msgbox "Unable to create rating document. No rating specified." Goto beginagain End If Else Exit Sub End If End Sub _Forward _Bookmarks Save to... Categori_ze _Edit Document Send Docu_ment _Remove from Folder... Add to Category View'++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Click(Source As Button) Declare Sub Initialize '++LotusScript Development Environment:2:5:(Declarations):0:10 '******************************** 'Notes Objects '******************************** Dim w As NOTESUIWORKSPACE Dim uidoc As NOTESUIDOCUMENT Dim s As NOTESSESSION Dim db As NOTESDATABASE Dim doc As NOTESDOCUMENT Dim launchDoc As NOTESDOCUMENT Dim Comments As Variant Dim URLstring As Variant Dim Content As Variant '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As BUTTON Set Source = Bind(Objectname_) On Event Click From Source Call Click End Sub '++LotusScript Development Environment:2:2:Click:1:12 Sub Click(Source As Button) '******************************************************** 'The Following Code creates a Categorized 'URL Launch document. 'NOTE: Object and Variable declaration are made in Form globals '****************************************************** Set uidoc = w.CURRENTDOCUMENT 'Current HTML Document Object Set launchDoc = New NOTESDOCUMENT(db) 'Create New Category Document Object Set doc = uidoc.document uidoc.EditMode= True 'Document must be in edit mode so dialogbox can update. If uidoc.editmode = True Then Call doc.replaceitemvalue("Comments", uidoc.FieldGetText("Title")) 'Set default value for comments field on Dialogbox Call w.DialogBox("Category Layout",True, True) 'The next five lines populate a new category document via dialogbox input and save it. Call launchdoc.appenditemvalue("Form", "Launch URL") Call launchdoc.appenditemvalue("Comments", doc.Getitemvalue("Comments")) Call LaunchDoc.AppendItemValue("URL",doc.getitemvalue("URL")) Call LaunchDoc.AppendItemValue("Content", doc.getitemvalue("Content")) Call LaunchDoc.Save(True,False) 'The next 3 lines reiniatlize the contents and comments fields to spaces and save them to the document 'These fields are temporary storage for the Dialogbox. Call doc.Replaceitemvalue("Content","") Call doc.Replaceitemvalue("Comments","") Call doc.save(True, False) Call uidoc.Save() uidoc.EditMode = False 'leave the document in read mode Else Print "Unable to put document in Edit Mode. Please verify your ACL rights in this database." End If End Sub '++LotusScript Development Environment:2:2:Initialize:1:8 Sub Initialize Set s = New NOTESSESSION Set db = s.CurrentDatabase Set w = New NOTESUIWORKSPACE End Sub [WebMaster] 0S0E $ $ $ @ ,$ }| ,$ } ,$ }4 $ $ $ @ ,$ }| ,$ } ,$ }4 4 4 h O=Lotus Notes O=Lotus Notes PURSAFO |.:#U O=Lotus Notes CN=Lotus Notes Template Development/O=Lotus Notes PURSAFO Fde!f^^ kLdCZs qWMVZ.h}y Counter $Hotspot0_O Created Expiration Privacy_flags Original_Date Last_Modified $SCRIPTOBJ_19 $SCRIPTOBJ_18 $TITLE $INFO $WINDOWTITLE $Script $$Script_O $$ScriptName $$FormScript $$$FormScript_O $BODY $ACTIONS $SCRIPTOBJ_8 $SCRIPTOBJ_9 $SCRIPTOBJ_17 New Tour Web Tour: tour_title" 0S0E Bodoni Book 5Courier New Guided Tour nCnJCn JDnDn C a`g` DCDC!DCDC stytszsts KEDLKEJ ststytst tstystst nJDg= <C=C=C DCDCD nDnJn nhnuoh tytysytstysztytystytystyst =C=C< tststytst Chnhn n onKi stststs Cagn> C"=D! zszszst <C=C=gC hChnC DC>CDCD DnJDJnD)n tstytszs C>=g< CDnDEK zstyty DC>oiDCD ststys ststyt DCDCDn nhDnDhoD ststyt zstst %G%A%A%A A%A%A <`<`<` ststszs tstst DCDnJ"Dh@ tstst tstsz G%A%A%A%GAq DC>EKg@ nhnhJnK tytst G%GA%GAGA `<`<`< ="K)> G%A%A ` <`<`<`<`< %GA%G qG%A%A%G nD"EKD`@ styty nC"K"= OmIOIsO "Cn"= oKDnJDo mOmIsIm snOsIs tststs G&A%A%GFG nDJhJ msmsm I OImOIsImO n "CDC"D sOmOIsmO mImOms tststs mOmIs OsOsm G%AG %GA%GAG%GA% mOsIs mImIs Osnst A%G%G ` <`<`<`<`< nsmOsIs I HICIHIHIH OmOsI G%AG%G GAG%GAG%A%A% %AGAG <`<`< HIHCICIH qGqGqGqGqG qGq%qAqGqAqGq%qAq%qGqGqAq qGqGq qAq%q% <`<`< =ba=>hbh nsOIs CICHC CIHCH tstst <`<`<`< CICHC' 'CHCH qGqGqG qGqGq GqGq%qGq%qAqAqAqAq FGqGq qAq%q <`<`< B'CICH bihC= zsyts HICHC' pGqGqGqGq qAq%q oi?Do ststs HICH! mOmsO tstst sytst nOmsOm sIsnOt szsts s"tsts nOsIOm CHIH@ AGA%AGAGAG nsOsIOmIHCHCH sOstst AGF%G D">KniD %AG%A G%G%A%A% >#06KD tsmOmIs iKDED oinEi %A%A% %AG@G oEDKi tsOmIs sIsOsn GA%AG%G@F o)"D#K }poRX HCIHCIH mOmsnst AG%G%A A%GAG% GA%AG% nsmOmOm G%GAG%GAG %GA%A ystzt ststst nstststs FGAG%GAG% oE#Eo HCIH'IH tstst tstst IsOm@ nsnst zstsz }YKDK msmOmOmOIm ED#Dio poEio tstyt mImOmIsIsOn )E(Ko OmsmOIsImImOmIOmOmOm sytsz %AG%G G%G%G tsnsmOmOmsIsOmOmIsIsIsIsI tststs G%A%G tsOmsOmOmIsIsIsIs smtst tststs GAG%A vKEio zstst tmtstststs G %G%G GAGAGA%A%GAFG ytytsz tststn s zsz pGqGq tststststst tstststst tytsty qGqGqGq tststst szstsz s tstststst FGqGqG )(po?E stszs ytstz ytsts t%szs o)#(DJo zstst tytststs szstytsz stzszstsz szstzststz ytstszs t ytstztsty stsztststy " K)(K oD")o KD#KouK"o fffff3ff f3ff33f3 3ff3f33f 33f33333 qqqqqqqq qqqGqqqG IIIIIIII Title: TitleEnter a descriptive title for your Web tour here. Comments: Tour_commentsAdd any descriptive comments about your Web tour here. Tour: Tour_URLsThis field lists the title and URL of each site on the Web tour. You may edit or rearrange the entries. Author: Tour_Author Date: Tour_Date Type: Tour_Type Categori_zeh _Edit Document Send Docu_ment _Forward _Load Tour 0S0E _Move to Folder... _Remove from Folder... Save 0S0E O=Lotus Notes O=Lotus Notes PURSAFO |.:#U O=Lotus Notes CN=Lotus Notes Template Development/O=Lotus Notes PURSAFO Fde!f^^ P5&+xa $TITLE $INFO $WINDOWTITLE $$ScriptName Tour_Date $BODY $ACTIONS Internet Directory Search Times New Roman Search Internet Directory Search Internet Directory Search 1. Enter topic to search: 2. Search an Internet directory by pressing button: If you are entering multiple words, separate them with a "+" symbol After your first search, you can repeat the search using a different directory by pressing "Esc" and returning to this form. Search_StringEnter your search here and then select a directory to search below search_string Error You must enter a topic to search! http://search.yahoo.com/bin/search?p= search_string &t=on&u=on&c=on&s=a&w=s&l=100 15R18S19S21S search_string Error You must enter a topic to search! http://lycos-tmp1.psc.edu/cgi-bin/flpursuit?query= search_string &matchmode=or&maxhits=100&minterms=1&minscore=0.01&terse=standard 0S0E search_string Error You must enter a topic to search! http://www.excite.com/search.gw?search= search_string &collection=web 0S0E search_string Error You must enter a topic to search! http://www.altavista.digital.com/cgi-bin/query?pg=q&q= search_string 0S0E SaveOptions O=Lotus Notes O=Lotus Notes PURSAFO |.:#U O=Lotus Notes CN=Lotus Notes Template Development/O=Lotus Notes PURSAFO Fde!f^^ $TITLE $INFO $WINDOWTITLE $$Script_O $$ScriptName $BODY Times New Roman About Server Web Navigator 4.5 @ @@ @ `@ ` @ @@ @@@@@ @`@@` ` @` `@@`@ ``@`` Welcome to the Server Web Navigator database. The Server Web Navigator database provides you with easy access to information on the World Wide Web via a Notes server (the InterNotes server) connected to the Internet. This database acts both as a repository for Internet documents and files that have been retrieved and as an easy entry point for exploring the Internet. Choose "Using This Database" from the Help menu for quick tips on using this database. For more detailed information on using this database, click the User's Guide icon on the Home navigator. ------------------- (Close this window to return to the database.) O=Lotus Notes O=Lotus Notes PURSAFO |.:#U O=Lotus Notes CN=Lotus Notes Template Development/O=Lotus Notes PURSAFO Fde!f^^ $INFO $BODY Hotspot2 WebFolders 0S0E (Art and Culture) 0S0E Hotspot3 WebFolders 0S0E (Publications) 0S0E Hotspot4 WebFolders 0S0E (Reference) 0S0E Hotspot5 WebFolders 0S0E (Business and Finance) 0S0E Hotspot6 WebFolders 0S0E (Shopping) 0S0E Hotspot7 WebFolders 0S0E (Government) 0S0E Hotspot8 WebFolders 0S0E (Education) 0S0E Hotspot16 Hotspot18 WebFolders 0S0E (Recommended) 0S0E Hotspot19 Search Hotspot20 Hotspot21 '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Click(Source As Navigator) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As NAVIGATOR Set Source = Bind(Objectname_) On Event Click From Source Call Click End Sub '++LotusScript Development Environment:2:2:Click:1:12 Sub Click(Source As Navigator) Dim PrivateAddressBook As notesdatabase Dim CurrentLocation As notesdocument Dim LocationString As String Dim helpdb As New notesdatabase("", "") Dim workspace As New NotesUIWorkspace Dim Session As New notessession Set PrivateAddressBook = New Notesdatabase("", "names.nsf") LocationString = Session.GetEnvironmentString ( "Location", True) If (PrivateAddressBook Is Nothing) Then If Helpdb.open("", "help4.nsf") Then Call workspace.OpenDatabase ( "", "help4.nsf", "Web") Elseif Helpdb.open("", "helplt4.nsf") Then Call workspace.OpenDatabase ( "", "helplt4.nsf", "Web") Else Msgbox "Unable to locate the Notes Help Database", 16, "Error" End If Exit Sub End If If LocationString <> "" Then Temp$ = Mid( LocationString, (Instr(1, LocationString, ",")+1)) LocationID$ = Left(Temp$, (Instr(1,Temp$, ",")-1)) Set CurrentLocation = PrivateAddressBook.getdocumentbyid(LocationID$) If Not (CurrentLocation Is Nothing) Then If CurrentLocation.MailServer(0) <> "" Then If Helpdb.open("", "help4.nsf") Then Call workspace.OpenDatabase ( "", "help4.nsf", "Web") Elseif Helpdb.open("", "helplt4.nsf") Then Call workspace.OpenDatabase ( "", "helplt4.nsf", "Web") Elseif Helpdb.open(CurrentLocation.MailServer(0), "help4.nsf") Then Call workspace.OpenDatabase ( CurrentLocation.MailServer(0), "help4.nsf", "Web") Elseif Helpdb.open(CurrentLocation.MailServer(0), "helplt4.nsf") Then Call workspace.OpenDatabase ( CurrentLocation.MailServer(0), "helplt4.nsf", "Web") Else Msgbox "Unable to locate the Notes Help Database", 16, "Error" End If Else If Helpdb.open("", "help4.nsf") Then Call workspace.OpenDatabase ( "", "help4.nsf", "Web") Elseif Helpdb.open("", "helplt4.nsf") Then Call workspace.OpenDatabase ( "", "helplt4.nsf", "Web") Else 'Mail server is blank Msgbox "Unable to locate the Notes Help Database", 16, "Error" End If End If Else If Helpdb.open("", "help4.nsf") Then Call workspace.OpenDatabase ( "", "help4.nsf", "Web") Elseif Helpdb.open("", "helplt4.nsf") Then Call workspace.OpenDatabase ( "", "helplt4.nsf", "Web") Else 'Location document is not found Msgbox "Unable to locate the Notes Help Database", 16, "Error" End If End If Else If Helpdb.open("", "help4.nsf") Then Call workspace.OpenDatabase ( "", "help4.nsf", "Web") Elseif Helpdb.open("", "helplt4.nsf") Then Call workspace.OpenDatabase ( "", "helplt4.nsf", "Web") Else 'Location string in notes.ini is blank Msgbox "Unable to locate the Notes Help Database", 16, "Error" End If End If End Sub Hotspot24 WebFolders 0S0E (Entertainment) 0S0E Hotspot25 WebFolders 0S0E (Recreation and Sports) 0S0E Hotspot26 WebFolders 0S0E (Computing and Internet) 0S0E Hotspot1 http://www.lotus.com 0S0E HotspotRectangle27 http://www.notes.net/ 0S0E HotspotRectangle28 WebFolders 0S0E (All Documents) 0S0E RRRRRRRR RRRRRRR RRRRRR O=Lotus Notes O=Lotus Notes PURSAFO |.:#U O=Lotus Notes CN=Lotus Notes Template Development/O=Lotus Notes PURSAFO Fde!f^^ ]N(g R|DH'h $TITLE $ViewMapDataset $ViewMapLayout Categori_zeK _Edit Document Send Docu_ment _Open URL _Home WebFolders 0S0E (Home) 0S0E _Directory Search Search 0S0E _Forward _Move to Folder... _Remove from Folder... Home NavigatorX WebFolders 0S0E (Home) 0S0E WebFolders| 0S0E Views NavigatorKb WebFolders 0S0E (All Documents) 0S0E WebFolders| 0S0E Recommended Navigator WebFolders 0S0E (Recommended) 0S0E WebFolders| 0S0E O=Lotus Notes O=Lotus Notes PURSAFO |.:#U O=Lotus Notes CN=Lotus Notes Template Development/O=Lotus Notes PURSAFO Fde!f^^ $TITLE $Index $Formula $FormulaClass $Totals $VIEWFORMAT $Comment $ACTIONS AdminDH Lotus NotesCN=Lotus Notes Template Development/O=Lotus Notes############################### ($Setup)j WWW_Server$Conflict Admin $Template L1S2S3S4S5S1 WWW_Server WWW_Server WWW_ServerInternet Server& CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes###### Opinion Form LayoutCD CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes###################### (Recommended)G3 CN=Dave Newbold/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes############################################ (All Documents)G3 CN=Dave Newbold/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes########################################## (AllRating)/O Tour_Type TitleNULLTIME_DATENULL$44$Conflict$REF Person Rating Form Rating L1S5S6S7S1" TitleTIME_DATE" TitleTIME_DATE" TitleTIME_DATE TIME_DATE TIME_DATE TitleDocument titleNULLTIME_DATEDateNULL$44Type8 Tour_Type CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes## (Art and Culture)G3 CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes################################ (Business and Finance)G3 CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes########################### (Computing and Internet)G3 CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes######################### ########################################################## ########################################################## Administration form for www_server 0S0E &Arial '++LotusScript Development Environment:2:5:(Options):0:74 '++LotusScript Development Environment:2:5:(Forward):0:1 '++LotusScript Development Environment:2:5:(Declarations):0:2 Admin'++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Querysave(Source As Notesuidocument, Continue As Variant) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As NOTESUIDOCUMENT Set Source = Bind(Objectname_) On Event Querysave From Source Call Querysave End Sub '++LotusScript Development Environment:2:2:Querysave:1:12 Sub Querysave(Source As Notesuidocument, Continue As Variant) Dim w As New notesuiworkspace Dim s As New notessession Dim doc As notesdocument Dim db As notesdatabase Dim dbsize As Variant Set doc = source.document Set db = s.currentdatabase dbsize = doc.getitemvalue("size") db.sizequota = Cdbl(dbsize(0)) * (1048) End Sub '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Exiting(Source As Field) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As FIELD Set Source = Bind(Objectname_) On Event Exiting From Source Call Exiting End Sub '++LotusScript Development Environment:2:2:Exiting:1:12 Sub Exiting(Source As Field) End Sub '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Exiting(Source As Field) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As FIELD Set Source = Bind(Objectname_) On Event Exiting From Source Call Exiting End Sub '++LotusScript Development Environment:2:2:Exiting:1:12 Sub Exiting(Source As Field) Dim w As New notesuiworkspace Dim uidoc As notesuidocument Dim doc As notesdocument Set uidoc = w.currentdocument Set doc = uidoc.document If Isnumeric( doc.age_criteria(0) ) Then Exit Sub Else Msgbox "You must enter a numeric value for purging documents older than a certain number of days.", 16, "Incorrect Entry" End If End Sub '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Exiting(Source As Field) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As FIELD Set Source = Bind(Objectname_) On Event Exiting From Source Call Exiting End Sub '++LotusScript Development Environment:2:2:Exiting:1:12 Sub Exiting(Source As Field) Dim w As New notesuiworkspace Dim uidoc As notesuidocument Dim docnote As notesdocument Set uidoc = w.currentdocument uidoc.refresh Set docnote = uidoc.document If "" <> (uidoc.fieldgettext("*")) Then var = docnote.GetItemValue("*") Forall item In var If Not (item = "*") Then uidoc.fieldclear(item) End If End Forall End If End Sub Web Navigator Administration WWW_Server 0S0E DisplayName Server Basics Purge Agent Settings InterNotes server name: Your Server Name Here WWW_Server 0S0E WWW_ServerEnter the hierarchical name of this InterNotes server. Purge agent action: Reduce page Purge_ActionChoose how you want Notes to purge the database. Delete page|1Reduce page|0 Maximum database size: SizeEnter the maximum size of the database in megabytes. Purge to what % of maximum database size: Pct_Db_GoalSelect the target size (in % of maximum database size) for Notes to purge the database. 50 %|5060 %|6070 %|7080 %|8090 %|90 Save author Information: Save_AuthorCheck this box to save the name of the person who retrieved the page -- available in "$All with authors" view. Purge documents older than: Age_CriteriaSelect how old the documents in the database should be before Notes purges them. 306090120 Days Save HTML in Note? SaveHTMLCheck this box to save the source HTML text in the HTMLSource field in the Notes document. Purge documents larger than: 256KB Size_CriteriaSelect how big the documents in the database should be before Notes purges them. 256KB|1512KB|21024KB|3 Purge Private documents: Private_expCheck this box to allow Notes to purge private documents in the database. Warning! HTML Preferences Anchors: Underline/Blue Anchor_styleChoose a style for URLs on Web pages. Bold/Underline/BlueUnderline/BlueBold/BlueUnderline only Fixed: Courier FixedChoose a font for tags that display "fixed" type on Web pages. TimesHelveticaCourier Body Text: Times 11 BodyChoose a font for the body tag on Web pages. Times 10Times 11Times 12Helvetica 10Helvetica 11Helvetica 12Courier 10Courier 11Courier 12 Listing: Courier ListingChoose a font for listing type tags on Web pages. TimesHelveticaCourier Plain: Courier PlainChoose a font for plaintext type tags on Web pages. TimesHelveticaCourier Address: Times AddressChoose a font for the address tag on Web pages. TimesHelveticaCourier Only fonts Helvetica, Times and Courier are supported. ;!^<;! $Script1 $Template SaveOptions Categori_ze _Edit Document Send Docu_ment _Forward Enable P_urge agent 0 Purge 0S0E Purge Enable _Refresh agent Refresh 0S0E Refresh _Go to Notes resource site: http://www.notes.net/ 0S0E _Move to Folder... _Remove from Folder... Disable Purge Agent Purge 0S0E Purge Disable Refresh Agent Refresh 0S0E Refresh O=Lotus Notes O=Lotus Notes PURSAFO |.:#U O=Lotus Notes CN=Lotus Notes Template Development/O=Lotus Notes PURSAFO Fde!f^^ Untitled2 refresh_when Refresh_freq U_docs $TITLE $INFO $WINDOWTITLE $Script $$Script_O $$ScriptName $$FormScript $$$FormScript_O $$Size $Size_O $$Age_Criteria $Age_Criteria_O $$$Script1 $$Script1_O $BODY $ACTIONS Categori_zeK _Edit Document Send Docu_ment _Forward _Move to Folder... _Remove from Folder... O=Lotus Notes O=Lotus Notes PURSAFO |.:#U O=Lotus Notes CN=Lotus Notes Template Development/O=Lotus Notes PURSAFO Fde!f^^ q;PyI $TITLE $Index $Formula $FormulaClass $VIEWFORMAT $Comment $ACTIONS ed$UpdatedBy$ACLDigest$Signature$DesignVersion$Version$Formula$FormulaClass$Collation$TITLE$INFO$FlagsURLDoclink$FIELDS$BODY$AssistType$AssistLastRun$AssistDocCount$AssistFlags$AssistTrigger$AssistInfo$AssistQuery$AssistAction$AssistAction_Ex$AssistRunInfo$AssistVersion$Fonts$DefaultNavigatorIconBitmap$FlagsNoRefresh$Index$VIEWFORMAT$Comment$ACTIONS$Collation1$Collation2$Collation3$Collation4$Collation5$Collation6Counter$Hotspot0_OCreatedExpirationPrivacy_flagsOriginal_DateLast_Modified$SCRIPTOBJ_19$SCRIPTOBJ_18$WINDOWTITLE$Script$$Script_O$$ScriptName$$FormScript$$$FormScript_OBodyTitleURLHTTPStatusTypeHostFileNameSaveOptionsSubject$SCRIPTOBJ_8$SCRIPTOBJ_9$SCRIPTOBJ_17$$XMB$$XMB_2$$XMB_3$LicenseeTour_commentsTour_URLsTour_AuthorTour_DateTour_TypeSearch_String$ViewMapDataset$ViewMapLayout$TotalsUntitled2refresh_whenRefresh_freqU_docs$$Size$Size_O$$Age_Criteria$Age_Criteria_O$$$Script1$$Script1_OWWW_ServerPurge_ActionSizePct_Db_GoalSave_AuthorAge_CriteriaSaveHTMLSize_CriteriaPrivate_expAnchor_styleFixedListingPlainAddress$Script1$TemplateContentAuthorRatingDateCommentsRatingCategory_Selection$AUTOLAUNCH$$Content$Content_O$$Rating$Rating_O$$Comments$Comments_OaverageAdj_ratingnumbertoptenWord_Repr.invalid$Readers$Authors$Name$FolderObject$FolderIDTable$LeftToDo$FormUsers$$FormAction1$$FormAction6Form$RevisionsUntitledSaveHTML_1 Rate and Categorize this Document Opinion Form Layout Rating 0S0E Rating Rating Rating Rating 0S0E Rating Rating Rating Rating 0S0E Rating Rating Rating Rating 0S0E Rating Rating Rating Rating 0S0E Rating Rating Rating Rating 0S0E Rating Rating Rating Rating 0S0E Rating Rating Rating Rating 0S0E Rating Rating Rating Rating 0S0E Rating Rating Rating Rating 0S0E Rating Rating Rating Title Title Poor < ------------------------------ > Great! contentSelect category from list that best describes contents of this document ArtsBusinessComputersCultureEducationEntertainmentFinanceGovernmentInternetPublicationsRecreationReferenceScienceShoppingSports Category: Author RatingDate CommentsWrite your descriptive comments about the page here! Your comments: Rating O=Lotus Notes O=Lotus Notes PURSAFO |.:#U O=Lotus Notes CN=Lotus Notes Template Development/O=Lotus Notes PURSAFO Fde!f^^ $TITLE $INFO $WINDOWTITLE $$ScriptName $BODY Recommended\By Category HotspotRectangle1 Recommended\By Category HotspotRectangle2a Recommended\By Reviewerg HotspotRectangle3g Recommended\Top Ratings HotspotRectangle4i (All Documents)r HotspotRectangle5e (Home) HotspotRectangle6) (Home) 0S0E O=Lotus Notes O=Lotus Notes PURSAFO |.:#U O=Lotus Notes CN=Lotus Notes Template Development/O=Lotus Notes PURSAFO Fde!f^^ z<QA@ $TITLE $ViewMapDataset $ViewMapLayout ($All) Hotspot9 By Host Hotspot10n (Home) Hotspot13e (Recommended) Hotspot14g File Archive Hotspot15r Web Toursr Hotspot18s My Bookmarks HotspotRectangle19 (Home) 0S0E HotspotRectangle21 ($All) HotspotRectangle22 WebFolders 0S0E 0S0E 0S0E O=Lotus Notes O=Lotus Notes PURSAFO |.:#U O=Lotus Notes CN=Lotus Notes Template Development/O=Lotus Notes PURSAFO Fde!f^^ $TITLE $ViewMapDataset $ViewMapLayout Categori_zeK _Edit Document Send Docu_ment _Open URL _Home WebFolders 0S0E (Home) 0S0E _Directory Search Search 0S0E _Forward _AdministrationKT WebAdmin _Move to Folder... _Remove from Folder... Home NavigatorX WebFolders 0S0E (Home) 0S0E WebFolders| 0S0E Views NavigatorKb WebFolders 0S0E (All Documents) 0S0E WebFolders| 0S0E Recommended Navigator WebFolders 0S0E (Recommended) 0S0E WebFolders| 0S0E O=Lotus Notes O=Lotus Notes PURSAFO |.:#U O=Lotus Notes CN=Lotus Notes Template Development/O=Lotus Notes PURSAFO Fde!f^^ $TITLE $Index $Formula $FormulaClass $VIEWFORMAT $Comment $ACTIONS (Art and Culture) GraphicButton2 http://www.yahoo.com/Arts 0S0E GraphicButton3 (Home) GraphicButton4 Search _Forward http://a2z.lycos.com/Arts_and_Humanities/ 0S0E GraphicButton5 ([OpenNavigator] http://www.excite.com/channel/lifestyle/?a-chl-t 0S0E O=Lotus Notes O=Lotus Notes PURSAFO |.:#U O=Lotus Notes CN=Lotus Notes Template Development/O=Lotus Notes PURSAFO Fde!f^^ yi`;N $TITLE $ViewMapDataset $ViewMapLayout (Business and Finance) GraphicButton2 (Home) GraphicButton3 http://www.yahoo.com/Business_and_Economy/ 0S0E GraphicButton4 ";"1") tor];"(Home)";"1 http://my.excite.com/channel/business/?a-chb-t 0S0E GraphicButton5 ";"1") http://a2z.lycos.com/Business_and_Investing/ 0S0E .yahoo.com/Busin $Formu oo.com/Busin /www.yahoo.com/B O=Lotus Notes O=Lotus Notes PURSAFO |.:#U O=Lotus Notes CN=Lotus Notes Template Development/O=Lotus Notes PURSAFO Fde!f^^ $TITLE $ViewMapDataset $ViewMapLayout (Computing and Internet) GraphicButton2 http://www.yahoo.com/Computers_and_Internet/ 0S0E GraphicButton3 (Home) GraphicButton4 (Busines http://a2z.lycos.com/Computers/ 0S0E GraphicButton5 http://www.excite.com/channel/computers/?a-chc-t 0S0E E:\PDC\ Navigator O=Lotus Notes O=Lotus Notes PURSAFO |.:#U O=Lotus Notes CN=Lotus Notes Template Development/O=Lotus Notes PURSAFO Fde!f^^ $TITLE $ViewMapDataset $ViewMapLayout (Education)G3 CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes###################################### (Entertainment)G3 CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes################################## (Government)G3 CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##################################### (Publications)G3 CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes################################### (Recreation and Sports)G3 CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes########################## (Reference)G3 CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes###################################### =I}[ x (Shopping)G3 CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes####################################### Recommended\By Category` invalid 3S4S6S8S9S yahoo Rating Content Content 0S0E $37$36TitleRatingComments$Conflict$REF Person Rating Form Rating L1S3S4S5S6S7S1) $36TitleRating invalid 3S4S6S8S9S yahoo Rating Content Content 0S0E TitleTitleRatingRatingCommentsComments& CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes################################################## Category LayoutDC CN=Dave Newbold/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes########################################################## Person Rating FormCD CN=Dave Newbold/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes############################################### ########################################################## (Education) GraphicButton2 http://www.yahoo.com/Education/ 0S0E GraphicButton3 (Home) GraphicButton4 http://www.excite.com/channel/career/?a-ched-t 0S0E GraphicButton5 http://a2z.lycos.com/Education/ 0S0E /www.yahoo.com/E O=Lotus Notes O=Lotus Notes PURSAFO |.:#U O=Lotus Notes CN=Lotus Notes Template Development/O=Lotus Notes PURSAFO Fde!f^^ $TITLE $ViewMapDataset $ViewMapLayout (Entertainment) GraphicButton2 http://www.yahoo.com/Entertainment/ 0S0E GraphicButton3 (Home) GraphicButton4 http://a2z.lycos.com/Entertainment_and_Leisure/ 0S0E GraphicButton5 http://my.excite.com/channel/entertainment/?a-che-t 0S0E O=Lotus Notes O=Lotus Notes PURSAFO |.:#U O=Lotus Notes CN=Lotus Notes Template Development/O=Lotus Notes PURSAFO Fde!f^^ v|,?2 $TITLE $ViewMapDataset $ViewMapLayout (Government) GraphicButton2 http://www.yahoo.com/Government/ 0S0E GraphicButton3 (Home) GraphicButton4 http://www.excite.com/channel/politics/?a-chp-t 0S0E GraphicButton5 http://a2z.lycos.com/Government/ 0S0E tainment/") O=Lotus Notes O=Lotus Notes PURSAFO |.:#U O=Lotus Notes CN=Lotus Notes Template Development/O=Lotus Notes PURSAFO Fde!f^^ oM#q: $TITLE $ViewMapDataset $ViewMapLayout (Publications) GraphicButton2 http://www.yahoo.com/Entertainment/Magazines/ 0S0E GraphicButton3 (Home) GraphicButton4 http://a2z.lycos.com/News_and_Information/ 0S0E GraphicButton5 ([OpenNavigator] http://nt.excite.com/?clk=a-NT-t 0S0E O=Lotus Notes O=Lotus Notes PURSAFO |.:#U O=Lotus Notes CN=Lotus Notes Template Development/O=Lotus Notes PURSAFO Fde!f^^ $TITLE $ViewMapDataset $ViewMapLayout (Recreation and Sports) GraphicButton2 http://www.yahoo.com/Recreation/ 0S0E GraphicButton3 Open("http://www (Home) GraphicButton4 http://my.excite.com/channel/sports/?a-chs-t 0S0E GraphicButton5 tegories\Governm http://a2z.lycos.com/Sports/ 0S0E O=Lotus Notes O=Lotus Notes PURSAFO |.:#U O=Lotus Notes CN=Lotus Notes Template Development/O=Lotus Notes PURSAFO Fde!f^^ p ] Vl $TITLE $ViewMapDataset $ViewMapLayout (Reference) GraphicButton2 (Home) GraphicButton3 http://www.yahoo.com/Reference/ 0S0E GraphicButton4 http://a2z.lycos.com/News_and_Information/Reference_Information/ 0S0E GraphicButton5 http://nt.excite.com/?clk=a-NT-t 0S0E @URLOpen("http:/ O=Lotus Notes O=Lotus Notes PURSAFO |.:#U O=Lotus Notes CN=Lotus Notes Template Development/O=Lotus Notes PURSAFO Fde!f^^ $TITLE $ViewMapDataset $ViewMapLayout (Shopping) GraphicButton2 http://www.yahoo.com/Business_and_Economy/Products_and_Services/ 0S0E GraphicButton3 (Home) GraphicButton4 http://www.excite.com/channel/shopping/?a-chsh-t 0S0E GraphicButton5 http://a2z.lycos.com/Shopping_the_Net/ 0S0E ess_and_Economy/ O=Lotus Notes O=Lotus Notes PURSAFO |.:#U O=Lotus Notes CN=Lotus Notes Template Development/O=Lotus Notes PURSAFO Fde!f^^ $TITLE $ViewMapDataset $ViewMapLayout Categori_zeK _Edit Document Send Docu_ment _Open URL HomeX WebFolders 0S0E (Home) 0S0E _Directory Search Search 0S0E _Forward _Move to Folder... _Remove from Folder... Home NavigatorX WebFolders 0S0E (Home) 0S0E WebFolders| 0S0E Views NavigatorKb WebFolders 0S0E (All Documents) 0S0E WebFolders| 0S0E Recommended Navigator WebFolders 0S0E (Recommended) 0S0E WebFolders| 0S0E O=Lotus Notes O=Lotus Notes PURSAFO |.:#U O=Lotus Notes CN=Lotus Notes Template Development/O=Lotus Notes PURSAFO Fde!f^^ $TITLE $Index $Formula $FormulaClass $VIEWFORMAT $Comment $ACTIONS Add this page to Category View Category Layout Select a Category for this document: Category_Selection Art and Culture |0Business and Finance |1Computing and Internet |2Education |3Entertainment |4Government |5Publications |6Recreation and Sports |7Reference |8Shopping |9 Edit title: Comments Comments Category_Selection Content O=Lotus Notes O=Lotus Notes PURSAFO |.:#U O=Lotus Notes CN=Lotus Notes Template Development/O=Lotus Notes PURSAFO Fde!f^^ $TITLE $INFO $WINDOWTITLE $$Script_O $$ScriptName $BODY Person Rating Form' Title Title Category: Content Content ArtBusinessComputersEconomyEducationEntertainmentEnvironment and NatureEventsGovernmentHealthHumanitiesLawNewsPoliticsPublicationsRecreation and SportsReferenceRegional InformationScienceSocial ScienceSociety and CultureShopping Rating Average: average Ajusted Average Adj_rating Number of ratings: number Top Ten topten Rating: Rating Rating Word_Repr. Word_Repr. Comments: Comments Comments Author: Author 0S0E RatingDate URL Invalid?: invalid SaveOptions 0S0E Click here to launch: If you see this form, you are using a version of the Notes Client that does not support auto-launching of URL links in Notes forms. See your Notes administrator to either upgrade your software to version 4.1 or later, or to revert this Notes application to an earlier version. Why do I have to do this? O=Lotus Notes O=Lotus Notes PURSAFO |.:#U O=Lotus Notes CN=Lotus Notes Template Development/O=Lotus Notes PURSAFO Fde!f^^ -D<MV bYfa$ $TITLE $AUTOLAUNCH $INFO $$Script_O $$ScriptName $$Content $Content_O $$Rating $Rating_O $$Comments $Comments_O $BODY (Art and Culture)|All/Ol Comments$Conflict Launch URL Content L1S6S7S9S1 Comments Comments Document title& CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes################################## (All Launch Docs)/O CommentsContent$46$47$Conflict Launch URL L1S1 Comments Content Comments Document titleContentContent$46Date $47Authors& CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes################# (Business and Finance)|1/Ol Comments$Conflict Launch URL Content L1S6S7S9S1 Comments Comments Document title& CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes############################### (Computing and Internet)|2/Ol Comments$Conflict Launch URL Content L1S6S7S9S1 Comments Comments Document title& CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes############################# (Education)|All/Ol Comments$Conflict Launch URL Content L1S6S7S9S1 Comments Comments Document title& CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes######################################## (Entertainment)|4/Ol Comments$Conflict Launch URL Content L1S6S7S9S1 Comments Comments Document title& CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes###################################### ########################################################## Categori_zeK _Edit Document Send Docu_ment _Open URL _Home WebFolders 0S0E (Home) 0S0E _Directory Search Search 0S0E _Forward _AdministrationKT WebAdmin _Move to Folder... _Remove from Folder... Home NavigatorX WebFolders 0S0E (Home) 0S0E WebFolders| 0S0E Views NavigatorKb WebFolders 0S0E (All Documents) 0S0E WebFolders| 0S0E Recommended Navigator WebFolders 0S0E (Recommended) 0S0E WebFolders| 0S0E O=Lotus Notes O=Lotus Notes PURSAFO |.:#U O=Lotus Notes CN=Lotus Notes Template Development/O=Lotus Notes PURSAFO Fde!f^^ $TITLE $Index $Formula $FormulaClass $VIEWFORMAT $Comment $ACTIONS Categori_zeK _Edit Document Send Docu_ment _Open URL _Home WebFolders 0S0E (Home) 0S0E _Directory Search Search 0S0E _Forward _AdministrationKT WebAdmin _Move to Folder... _Remove from Folder... Home NavigatorX WebFolders 0S0E (Home) 0S0E WebFolders| 0S0E Views NavigatorKb WebFolders 0S0E (All Documents) 0S0E WebFolders| 0S0E Recommended Navigator WebFolders 0S0E (Recommended) 0S0E WebFolders| 0S0E O=Lotus Notes O=Lotus Notes PURSAFO |.:#U O=Lotus Notes CN=Lotus Notes Template Development/O=Lotus Notes PURSAFO Fde!f^^ $TITLE $Index $Formula $FormulaClass $VIEWFORMAT $Comment $ACTIONS Categori_zeK _Edit Document Send Docu_ment _Open URL _Home WebFolders 0S0E (Home) 0S0E _Directory Search Search 0S0E _Forward _AdministrationKT WebAdmin _Move to Folder... _Remove from Folder... Home NavigatorX WebFolders 0S0E (Home) 0S0E WebFolders| 0S0E Views NavigatorKb WebFolders 0S0E (All Documents) 0S0E WebFolders| 0S0E Recommended Navigator WebFolders 0S0E (Recommended) 0S0E WebFolders| 0S0E O=Lotus Notes O=Lotus Notes PURSAFO |.:#U O=Lotus Notes CN=Lotus Notes Template Development/O=Lotus Notes PURSAFO Fde!f^^ CxdER $TITLE $Index $Formula $FormulaClass $VIEWFORMAT $Comment $ACTIONS Categori_zeK _Edit Document Send Docu_ment _Open URL _Home WebFolders 0S0E (Home) 0S0E _Directory Search Search 0S0E _Forward _AdministrationKT WebAdmin _Move to Folder... _Remove from Folder... Home NavigatorX WebFolders 0S0E (Home) 0S0E WebFolders| 0S0E Views NavigatorKb WebFolders 0S0E (All Documents) 0S0E WebFolders| 0S0E Recommended Navigator WebFolders 0S0E (Recommended) 0S0E WebFolders| 0S0E O=Lotus Notes O=Lotus Notes PURSAFO |.:#U O=Lotus Notes CN=Lotus Notes Template Development/O=Lotus Notes PURSAFO Fde!f^^ C*"Uo $TITLE $Index $Formula $FormulaClass $VIEWFORMAT $Comment $ACTIONS Categori_zeK _Edit Document Send Docu_ment _Open URL _Home WebFolders 0S0E (Home) 0S0E _Directory Search Search 0S0E _Forward _AdministrationKT WebAdmin _Move to Folder... _Remove from Folder... Home NavigatorX WebFolders 0S0E (Home) 0S0E WebFolders| 0S0E Views NavigatorKb WebFolders 0S0E (All Documents) 0S0E WebFolders| 0S0E Recommended Navigator WebFolders 0S0E (Recommended) 0S0E WebFolders| 0S0E O=Lotus Notes O=Lotus Notes PURSAFO |.:#U O=Lotus Notes CN=Lotus Notes Template Development/O=Lotus Notes PURSAFO Fde!f^^ $TITLE $Index $Formula $FormulaClass $VIEWFORMAT $Comment $ACTIONS Categori_zeK _Edit Document Send Docu_ment _Open URL _Home WebFolders 0S0E (Home) 0S0E _Directory Search Search 0S0E _Forward _AdministrationKT WebAdmin _Move to Folder... _Remove from Folder... Home NavigatorX WebFolders 0S0E (Home) 0S0E WebFolders| 0S0E Views NavigatorKb WebFolders 0S0E (All Documents) 0S0E WebFolders| 0S0E Recommended Navigator WebFolders 0S0E (Recommended) 0S0E WebFolders| 0S0E O=Lotus Notes O=Lotus Notes PURSAFO |.:#U O=Lotus Notes CN=Lotus Notes Template Development/O=Lotus Notes PURSAFO Fde!f^^ $TITLE $Index $Formula $FormulaClass $VIEWFORMAT $Comment $ACTIONS (Government)|5/Ol Comments$Conflict Launch URL Content L1S6S7S9S1 Comments Comments Document title& CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes######################################### (Publications)|6/Ol Comments$Conflict Launch URL Content L1S6S7S9S1 Comments Comments Document title& CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes####################################### NE|$NB (Recreation and Sports)|7/Ol Comments$Conflict Launch URL Content L1S6S7S9S1 Comments Comments Document title& CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes############################## (Reference)|8/Ol Comments$Conflict Launch URL Content L1S6S7S9S1 Comments Comments Document title& CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes########################################## (Shopping)|9/Ol Comments$Conflict Launch URL Content L1S6S7S9S1 Comments Comments Document title& CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes########################################### Purge 1SfL3 CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes# Refresh 1SfL3 Lotus NotesCN=Lotus Notes Template Development/O=Lotus Noteswz_ ########################################################## Launch URL[WebMaster]H CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes############################# ########################################################## ########################################################## Categori_zeK _Edit Document Send Docu_ment _Open URL _Home WebFolders 0S0E (Home) 0S0E _Directory Search Search 0S0E _Forward _AdministrationKT WebAdmin _Move to Folder... _Remove from Folder... Home NavigatorX WebFolders 0S0E (Home) 0S0E WebFolders| 0S0E Views NavigatorKb WebFolders 0S0E (All Documents) 0S0E WebFolders| 0S0E Recommended Navigator WebFolders 0S0E (Recommended) 0S0E WebFolders| 0S0E O=Lotus Notes O=Lotus Notes PURSAFO |.:#U O=Lotus Notes CN=Lotus Notes Template Development/O=Lotus Notes PURSAFO Fde!f^^ $TITLE $Index $Formula $FormulaClass $VIEWFORMAT $Comment $ACTIONS Categori_zeK _Edit Document Send Docu_ment _Open URL _Home WebFolders 0S0E (Home) 0S0E _Directory Search Search 0S0E _Forward _AdministrationKT WebAdmin _Move to Folder... _Remove from Folder... Home NavigatorX WebFolders 0S0E (Home) 0S0E WebFolders| 0S0E Views NavigatorKb WebFolders 0S0E (All Documents) 0S0E WebFolders| 0S0E Recommended Navigator WebFolders 0S0E (Recommended) 0S0E WebFolders| 0S0E O=Lotus Notes O=Lotus Notes PURSAFO |.:#U O=Lotus Notes CN=Lotus Notes Template Development/O=Lotus Notes PURSAFO Fde!f^^ 4D`nv ydBK*w $TITLE $Index $Formula $FormulaClass $VIEWFORMAT $Comment $ACTIONS Categori_zeK _Edit Document Send Docu_ment _Open URL _Home WebFolders 0S0E (Home) 0S0E _Directory Search Search 0S0E _Forward _AdministrationKT WebAdmin _Move to Folder... _Remove from Folder... Home NavigatorX WebFolders 0S0E (Home) 0S0E WebFolders| 0S0E Views NavigatorKb WebFolders 0S0E (All Documents) 0S0E WebFolders| 0S0E Recommended Navigator WebFolders 0S0E (Recommended) 0S0E WebFolders| 0S0E O=Lotus Notes O=Lotus Notes PURSAFO |.:#U O=Lotus Notes CN=Lotus Notes Template Development/O=Lotus Notes PURSAFO Fde!f^^ $TITLE $Index $Formula $FormulaClass $VIEWFORMAT $Comment $ACTIONS Categori_zeK _Edit Document Send Docu_ment _Open URL _Home WebFolders 0S0E (Home) 0S0E _Directory Search Search 0S0E _Forward _AdministrationKT WebAdmin _Move to Folder... _Remove from Folder... Home NavigatorX WebFolders 0S0E (Home) 0S0E WebFolders| 0S0E Views NavigatorKb WebFolders 0S0E (All Documents) 0S0E WebFolders| 0S0E Recommended Navigator WebFolders 0S0E (Recommended) 0S0E WebFolders| 0S0E O=Lotus Notes O=Lotus Notes PURSAFO |.:#U O=Lotus Notes CN=Lotus Notes Template Development/O=Lotus Notes PURSAFO Fde!f^^ $TITLE $Index $Formula $FormulaClass $VIEWFORMAT $Comment $ACTIONS Categori_zeK _Edit Document Send Docu_ment _Open URL _Home WebFolders 0S0E (Home) 0S0E _Directory Search Search 0S0E _Forward _AdministrationKT WebAdmin _Move to Folder... _Remove from Folder... Home NavigatorX WebFolders 0S0E (Home) 0S0E WebFolders| 0S0E Views NavigatorKb WebFolders 0S0E (All Documents) 0S0E WebFolders| 0S0E Recommended Navigator WebFolders 0S0E (Recommended) 0S0E WebFolders| 0S0E O=Lotus Notes O=Lotus Notes PURSAFO |.:#U O=Lotus Notes CN=Lotus Notes Template Development/O=Lotus Notes PURSAFO Fde!f^^ $TITLE $Index $Formula $FormulaClass $VIEWFORMAT $Comment $ACTIONS ($All)|All/O Tour_Type TitleNULL$48NULL$44$Conflict$REF HTMLForm $Title HTMLFormDoc Guided Tour Privacy_Flags PrivatePage DeferredObject Status httpstatus httpstatus L1S20S30S1 Title $48Title TitleDocument titleNULL$48Date NULL$44Type8 Tour_Type Lotus NotesCN=Lotus Notes Template Development/O=Lotus Notes########################################## ($All with Authors)|All/O Tour_Type TitleNULL$46NULL$49NULL$44$Conflict$REF HTMLForm $Title HTMLFormDoc Guided Tour Privacy_Flags PrivatePage DeferredObject Status httpstatus httpstatus L1S20S30S1 Title $49Title TitleDocument titleNULL$46Author& NULL$49Date NULL$44Type8 Tour_Type Lotus NotesCN=Lotus Notes Template Development/O=Lotus Notes###### ($Admin)|WebAdminl WWW_Server$Conflict$REF Admin $Template L1S2S3S1 WWW_Server WWW_Server WWW_ServerInternet Server& CN=Teresa Deane/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Teresa Deane/O=Iris#################################### (Upgrade From Notes 4.X to 4.5) EH4fL3 Lotus NotesCN=Lotus Notes Template Development/O=Lotus Notes################################################# ########################################################## Categori_ze _Edit Document Send Docu_ment _Open URLt _Home WebFolders 0S0E (Home) 0S0E _Directory Search Search 0S0E _Forward _AdministrationDT WebAdmin [WebMaster] 0S0E _Move to Folder... _Remove from Folder... Home NavigatorX WebFolders 0S0E (Home) 0S0E WebFolders| 0S0E Views Navigator WebFolders 0S0E (All Documents) 0S0E WebFolders| 0S0E Recommended Navigatort` WebFolders 0S0E (Recommended) 0S0E WebFolders| 0S0E Upgrade from 4.X to 4.5 (Upgrade From Notes 4.X to 4.5) [WebMaster] 0S0E O=Lotus Notes O=Lotus Notes PURSAFO |.:#U O=Lotus Notes CN=Lotus Notes Template Development/O=Lotus Notes PURSAFO Fde!f^^ D<z]|a 3iVXT-sD $TITLE $Index $Formula $FormulaClass $VIEWFORMAT $Comment $ACTIONS Categori_zet _Edit Document Send Docu_ment _Open URL _Home WebFolders 0S0E (Home) 0S0E _Directory Search Search 0S0E _Forward _Administration WebAdmin [WebMaster] 0S0E _Move to Folder... _Remove from Folder... Home NavigatorX WebFolders 0S0E (Home) 0S0E WebFolders| 0S0E Views Navigator WebFolders 0S0E (All Documents) 0S0E WebFolders| 0S0E Recommended Navigator WebFolders 0S0E (Recommended) 0S0E WebFolders| 0S0E Upgrade from 4.X to 4.5} (Upgrade From Notes 4.X to 4.5) [WebMaster] 0S0E O=Lotus Notes O=Lotus Notes PURSAFO |.:#U O=Lotus Notes CN=Lotus Notes Template Development/O=Lotus Notes PURSAFO Fde!f^^ $TITLE $Index $Formula $FormulaClass $VIEWFORMAT $Comment $ACTIONS CN=Dave Newbold/O=IrisCN=Dave Newbold/O=IrisMy BookmarksMy Bookmarks/O CN=Dave Newbold/O=Iris TIME_DATE TIME_DATE 0S0E Tour_Type TitleNULL$45NULL$44$Conflict$REF Title $45Title TitleDocument titleNULL$45DateN TIME_DATE TIME_DATE 0S0E NULL$44Type8 Tour_Type #################################################### My BookmarksMy Bookmarks/L/O TIME_DATE TIME_DATE 0S0E Tour_Type TitleNULL$45NULL$44$Conflict$REF Title $45Title TitleDocument titleNULL$45DateN TIME_DATE TIME_DATE 0S0E NULL$44Type8 Tour_Type CN=Ryan Jansen/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes ########################################################## CNN - Technology News Main Pagehttp://www3.cnn.com/TECH/index.htmlCNN - Technology News Main PageLaunch URL2 CN=Dave Newbold/O=IrisCN=Teresa Deane/O=IrisCN=Dave Newbold/O=Iris ############################## Apple Computerhttp://www.apple.com/Apple ComputerLaunch URL2 CN=Dave Newbold/O=IrisCN=Teresa Deane/O=IrisCN=Dave Newbold/O=Iris ############## Cisco Systems, Inc.http://www.cisco.com/Cisco Systems, Inc.Launch URL2 CN=Dave Newbold/O=IrisCN=Teresa Deane/O=IrisCN=Dave Newbold/O=Iris Compaq Computer Corporation, Graphics pathhttp://www.compaq.com/Compaq Computer CorporationLaunch URL2 CN=Dave Newbold/O=IrisCN=Teresa Deane/O=IrisCN=Dave Newbold/O=Iris #################################### ########################################################## Categori_zeK _Edit Document Send Docu_ment _Open URL _Home WebFolders 0S0E (Home) 0S0E _Directory Search Search 0S0E _Forward _AdministrationKT WebAdmin _Move to Folder... _Remove from Folder... Home NavigatorX WebFolders 0S0E (Home) 0S0E WebFolders| 0S0E Views NavigatorKb WebFolders 0S0E (All Documents) 0S0E WebFolders| 0S0E Recommended Navigator WebFolders 0S0E (Recommended) 0S0E WebFolders| 0S0E S_)tW' aY*]c PURSAF W36{&b O=Iris O=Iris x>_/^ PURSAFO .? Kz" O=Iris CN=Dave Newbold/O=Iris PURSAFO LB-bQ $Readers $Authors $TITLE $Name $Index $UpdatedBy $Formula $FormulaClass $Collation1 $Collation2 $Collation3 $ViewFormat $Comment $ACTIONS '++LotusScript Development Environment:2:5:(Options):0:74 Option Public '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Initialize Declare Sub ReduceToLink (docLocal As NotesDocument) Declare Sub SetQuota Declare Sub DeleteExpired Declare Sub DeleteByDate Declare Sub DeleteBySize Declare Sub ReadAdminValues '++LotusScript Development Environment:2:5:(Declarations):0:10 '* Declarations Dim webdb As NotesDatabase Dim webview As notesview Dim webcoll As notesdocumentcollection Dim adminview As notesview Dim admindoc As notesdocument Dim currentdoc As NotesDocument Dim expdate As Variant Dim currdate As Variant Dim purge_action As Variant Dim private_purge As Variant Dim db_size_limit As Double Dim db_size_admin As Variant Dim db_pct_goal As Variant Dim db_size_goal As Double Dim age_criteria As Variant Dim size_criteria As Variant Dim offsetdate As Variant Dim lower As Long Dim docs_deleted As Integer Dim InterNotesServer As String '++LotusScript Development Environment:2:2:Initialize:1:10 Sub Initialize Dim session As New NotesSession Dim cuttoff As New notesdatetime ("1/1/94") Set webdb = session.CurrentDatabase '* '* We are going to write a whole bunch of stuff to the Notes log to '* help "understand" which Web documents get purged and why. '* Print "==============================================================" Print Session.NotesVersion Print Session.Platform Print "Last modified by: " + Session.EffectiveUserName Print "Last run on: " + Cdat(Session.LastRun) Print "Last exit status: " + Str(Session.LastExitStatus) Print "==============================================================" '* '* We need the InterNotes server name for this database so we can find '* the correct Admin document. '* If ( Session.IsOnServer ) Then InterNotesServer = Session.Username Else InterNotesServer = WebDB.Server End If Print "InterNotes server: " + InterNotesServer '* '* Now all of the fields are read from the admin document and assigned '* to the specified variables. All databases and views are also '* assigned and set to the proper values. '* If Not (Webdb Is Nothing) Then Set adminview = Webdb.getview("($Admin)") If Not (adminview Is Nothing) Then Set admindoc = adminview.getdocumentbykey(InterNotesServer, False) '* '* Make sure that the admindoc got set correctly. '* and retrieve parameters from it. '* If Not(admindoc Is Nothing) Then ReadAdminValues '* '* This sets the sizequota for the database '* based on the setting in the admin note. '* SetQuota '* '* This is the actual start of the code for the purge agent. '* It checks to see if the purging of private documents is turned '* on. Based on that selection it follows a series of for next '* loops parsing selected documents in a collection. '* Print "Starting Purge Agent for web.nsf" If (Private_purge(0)<>"1") Then '* '* If the database size has exceeded the database size goal '* as set in the admin note, it starts deleted expired pages '* with no regard for private pages '* If ( db_size_goal < webdb.size ) Then Set webcoll = webdb.search("(Form=""HTMLForm"" & Expiration <> NULL) | ($Title = ""HTMLFormDoc""& expiration <> NULL)", cuttoff, 0) DeleteExpired End If '* '* This loop checks to see if the database size has exceeded the '* database size goal as set in the admin note. If it has then '* it needs to start deleting documents based on their '* origination date in the database (the time_date field). '* This loop includes private documents. '* If ( db_size_goal < webdb.size ) Then If (age_criteria(0) <> "0") Then Set webcoll = webdb.search("Form=""HTMLForm"" | $Title = ""HTMLFormDoc""", cuttoff, 0) DeleteByDate End If End If '* '* This loop again checks to see if the database size has '* exceeded the size goal as set in the admin note. If the '* size goal still needs to be acheived, this loop deletes '* based on document size including private documents. '* If ( db_size_goal < webdb.size ) Then Set webcoll = webdb.search("Form=""HTMLForm"" | $Title = ""HTMLFormDoc""", cuttoff, 0) DeleteBySize End If Else '* '* If Private pages are excluded from the purge, the following code is run. '* '* '* This loop is a repeat of the first one above except that it '* deletes expired documents with regard to private pages. '* Note that the search criteria in the collection specifies '* privacy_flags not equal to one. This eliminates private '* pages from the documents returned in the collection. '* If ( db_size_goal < webdb.size ) Then Set webcoll = webdb.search("(Form=""HTMLForm"" &PrivatePage<>""1""&expiration<>NULL)|( $Title = ""HTMLFormDoc""&PrivatePage<>""1""&expiration<>NULL)", cuttoff, 0) DeleteExpired End If '* '* This loop checks to see if the database size has exceeded '* the database size goal as set in the admin note. If it has '* then it needs to start deleting documents based on their '* origination date in the database (the time_date field). '* This loop excludes private documents. '* If ( db_size_goal < webdb.size ) Then Set webcoll = webdb.search("(Form=""HTMLForm"" & PrivatePage<>""1"") |( $Title = ""HTMLFormDoc""&PrivatePage<>""1"")", cuttoff, 0) DeleteByDate End If '* '* This loop again checks to see if the database size has '* exceeded the size goal as set in the admin note. If the '* size goal still needs to be achieved, this loop deletes '* based on document size excluding private documents. '* If ( db_size_goal < webdb.size ) Then Set webcoll = webdb.search("(Form=""HTMLForm"" &PrivatePage<>""1"")|( $Title = ""HTMLFormDoc""&PrivatePage<>""1"")", cuttoff, 0) DeleteBySize End If End If '* '* This ends the purging code. What remains is some cleanup. The main '* $All view needs to be refreshed and the database is properly closed. '* If the database size goal has still not been met, some information '* is printed to the notes log to inform the administrator that they '* should up the size goal. '* Set webview = webdb.getview("($All)") Call webview.refresh() Print "Just refreshed the 'All documents view" Print "Purge Agent ending for web.nsf" Print "Purge Agent deleted " + Cstr(docs_deleted) + " documents from web.nsf." If (db_size_goal < webdb.size) Then Print "Purge Agent was unable to delete enough documents to make the database meet it's size criteria." Print "Please re-evaluate your purge criteria or raise your maximum database size in the Admin document." End If Else Print "Unable to find the correct Admin document for this server. Exiting without purging." End If Else Print "The Admin view could not be found. Exiting without purging." End If Else Print "The Web Database could not be opened. Exiting without purging." End If End Sub '++LotusScript Development Environment:2:2:ReduceToLink:1:8 Sub ReduceToLink (docLocal As NotesDocument) '* '* This function reduces the page to a link versus deleteing the entire page. '* docLocal.RemoveItem "Body" docLocal.RemoveItem "HTMLSource" docLocal.RemoveItem "HTMLBody" docLocal.RemoveItem "$Background" docLocal.RemoveItem "$File" docLocal.Save True,True End Sub '++LotusScript Development Environment:2:2:SetQuota:1:8 Sub SetQuota '* '* this function returns the sizequota for the database. '* If ( db_size_limit <> webdb.sizequota ) Then webdb.sizequota = db_size_limit End If End Sub '++LotusScript Development Environment:2:2:DeleteExpired:1:8 Sub DeleteExpired For j = 1 To webcoll.count Set currentdoc = webcoll.GetNthDocument(j) '* '* This statement checks for a non-blank value in the '* expiration field and then compares it with todays '* date. If the expiration date has already passed, '* the document is deleted. '* If ( currentdoc.hasitem("Expiration") ) Then If ( currentdoc.getitemvalue("Expiration")(0)<>"" ) Then expdate = currentdoc.getitemvalue("Expiration") If ( Cdat(expdate(0)) <= Cdat(currdate) ) Then If Purge_Action(0) = "1" Then ReduceToLink currentdoc Else Call currentdoc.remove(True) End If docs_deleted=docs_deleted+1 End If End If End If Next End Sub '++LotusScript Development Environment:2:2:DeleteByDate:1:8 Sub DeleteByDate Dim origdate As Variant For j = 1 To webcoll.count Set currentdoc = webcoll.GetNthDocument(j) '* '* This statement checks for the creation date '* (origination date of the html document) and '* then compares it with the offset date computed '* from the age criteria deletion field in the admin '* note. '* origdate = currentdoc.created If ( Cdat(origdate) < Cdat(offsetdate) ) Then If Purge_Action(0) = "1" Then ReduceToLink currentdoc Else Call currentdoc.remove(True) End If docs_deleted=docs_deleted+1 End If Next End Sub '++LotusScript Development Environment:2:2:DeleteBySize:1:8 Sub DeleteBySize For j = 1 To webcoll.count Set currentdoc = webcoll.GetNthDocument(j) '* '* This statement checks the current size of the '* document and compares it against the size limit '* set in the admin note. If it exceeds it, it '* deletes the document. '* If ( currentdoc.size >= lower ) Then If Purge_Action(0) = "1" Then ReduceToLink currentdoc Else Call currentdoc.remove(True) End If docs_deleted = docs_deleted+1 End If Next End Sub '++LotusScript Development Environment:2:2:ReadAdminValues:1:8 Sub ReadAdminValues docs_deleted =0 currdate = Today() purge_action = admindoc.getitemvalue("Purge_Action") private_purge = admindoc.getitemvalue("Private_Exp") age_criteria = admindoc.getitemvalue("Age_Criteria") offsetdate = Datenumber(Year(currdate), Month(currdate), Day(currdate) - Cint(age_criteria(0))) db_size_admin = admindoc.getitemvalue("Size") db_size_limit = Cdbl(db_size_admin(0)) * (1048) db_pct_goal = admindoc.getitemvalue("Pct_Db_Goal") size_criteria = admindoc.getitemvalue("Size_Criteria") db_size_goal = db_size_limit * (Cdbl(db_pct_goal(0))*.01) Select Case size_criteria(0) Case "1" lower = 262144 Case "2" lower = 524288 Case "3" lower = 1048576 End Select End Sub O=Lotus Notes O=Lotus Notes PURSAFO |.:#U O=Lotus Notes CN=Lotus Notes Template Development/O=Lotus Notes PURSAFO Fde!f^^ qD\[ $TITLE $AssistType $AssistLastRun $AssistDocCount $AssistFlags $AssistTrigger $AssistInfo $AssistQuery $AssistAction $AssistAction_Ex '++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Initialize '++LotusScript Development Environment:2:5:(Declarations):0:10 Dim WebDB As NotesDatabase 'Represents the Web database Dim WebAllView As NotesView 'Represents the $All view Dim WebAdminView As NotesView 'Represents the $Admin view Dim WebColl As NotesDocumentCollection Dim WebAdminDoc As NotesDocument 'Represents the Admin document Dim WebDoc As NotesDocument 'Represents the current retrieved Web document Dim CurrentDoc As NotesDocument 'Represents the current cached Web document Dim Url As Variant Dim RepConflicts As NotesdocumentCollection Dim NumDocsReloadErrors As Integer Dim NumDocsRefreshed As Integer Dim DebugFlag As String Dim InterNotesServer As String Dim PurgeAction As String '++LotusScript Development Environment:2:2:Initialize:1:10 Sub Initialize Dim Session As New NotesSession 'Represents the current session Dim CuttoffTime As New NotesDateTime ("1/1/94") '* '* We have started! Check for debug flag in the configuration '* file to see if we should log debug information. '* DebugFlag = Session.GetEnvironmentValue("WebDebugRefreshAgent",False) If ( DebugFlag = "1" ) Then '* '* We are going to write a whole bunch of stuff to the Notes log to '* help "understand" which Web documents get refreshed and why. '* Print "==============================================================" Print "Starting in debug mode..." Print Session.NotesVersion Print Session.Platform Print "Last modified by: " + Session.EffectiveUserName Print "Last run on: " + Cdat(Session.LastRun) Print "Last exit status: " + Str(Session.LastExitStatus) Print "==============================================================" End If '* '* Instantiate the Web database as the DB we are currently working on. '* Set WebDB = Session.CurrentDatabase If ( DebugFlag = "1" ) Then Print "Database title: " + WebDB.Title Print "Database created on: " + Cdat(WebDB.Created) Print "Database template name: " + WebDB.DesignTemplateName End If '* '* Find the Admin document in the Web Retriever Database '* so we can find our Admin settings for the retriever. '* Set WebAdminView = WebDB.GetView("($Admin)") If ( DebugFlag = "1" ) Then Print "Using Admin view: " + WebAdminView.Name End If '* '* We need the InterNotes server name for this agent so we can find '* the correct admin document. '* If ( Session.IsOnServer ) Then InterNotesServer = Session.Username Else InterNotesServer = WebDB.Server End If If ( DebugFlag = "1" ) Then Print "InterNotes server: " + InterNotesServer End If '* '* Get the Admin document using the InterNotes server name as the key. '* Get the refresh and verbose flags out of the document. Close the '* Admin document when we are done. '* Set WebAdminDoc = WebAdminView.GetDocumentByKey(InterNotesServer, False) '* '* Make sure that the server document exists before retrieving values. '* If Not(WebAdminDoc Is Nothing) Then PurgeAction = WebAdminDoc.Purge_Action(0) '* '* Normal startup message... '* If (DebugFlag <> "1" ) Then Print "Starting..." Print "Last run on: " + Cdat(Session.LastRun) Print "Last exit status: " + Str(Session.LastExitStatus) End If '* '* First we must remove any replication conflicts that may have happened. '* Set RepConflicts=WebDB.UnprocessedSearch("@isavailable($Conflict)",CuttoffTime, 0) For Y = 1 To RepConflicts.count Set CurrentDoc = RepConflicts.GetNthDocument(y) Call CurrentDoc.Delete Next '* '* We now have to search the database for candidates for refreshing. '* We only want to refresh documents that pass the following criteria: '* 1. Only Web pages, not ratings, auto-launch documents, etc. Web '* Web page always have form name "HTMLForm", or if they contain '* an HTML form, the title is "HTMLFormDoc". '* 2. Only public pages should be refreshed, not private pages. '* 3. Only HTTP pages should be refreshed because they are the only '* ones we can check for "Last-Modified" date/time. '* 4. Don't refresh pages that need authentication '* 5. Don't refresh deferred objects that are stored in the database. '* If ( DebugFlag = "1" ) Then Print "Searching the database for candidates to refresh..." End If NumDocsReloadErrors = 0 NumDocsRefreshed = 0 NumDocsRefreshedNotToday = 0 NumDocsRefreshedBadLMDate = 0 Set WebColl = WebDB.UnprocessedSearch("(((Form=""HTMLForm"") | ($Title = ""HTMLFormDoc"")) & (DeferredObject !=""1"")&(PrivatePage!=""1"") & (@contains(url;""http"")) & (HTTPstatus = ""200"")& (!@contains(url; ""pathfinder"")))", CuttoffTime, 0) If ( DebugFlag = "1" ) Then Print "Found " + Str(WebColl.Count) + " documents that are candidates to refresh" End If If ( WebColl.Count = 0 ) Then '* '* There are no documents in the database to refresh. '* If ( DebugFlag = "1" ) Then Print "There are no documents in the database to refresh" End If Exit Sub End If '* '* Loop over all of the documents returned in the collection using the reloadifmodified '* flag on the getdocumentbyurl method. This will reload the page if it has changed '* yet preserve the page if there are connectivity problems. '* For i = 1 To WebColl.Count '* '* Get the next document in the collection '* Set CurrentDoc = WebColl.GetNthDocument(i) If ( DebugFlag = "1" ) Then Print "------------------------------------------------------------------------------------------------------------" Print "Current document number: " + Cstr(i) End If '* '* Make sure there is a URL in the document '* that we can use for the retrieval. '* If ( Not CurrentDoc.HasItem("url") ) Then '* '* We can't do anything if we don't have a URL. '* Go onto the next document. '* If ( DebugFlag = "1" ) Then Print "Document does not contain a URL item, skipping..." End If Goto NextDocument End If '* '* Get the URL out of the current document. '* Url = CurrentDoc.GetItemValue("url") If ( DebugFlag = "1" ) Then Print "Current URL: " + Url(0) End If If PurgeAction <>"0" Then '* '* Check to see if the PurgeAction specified in the admin note is Reduce to Link '* If it is not, proceed as normal. If it is, check to see if the page has been reduced. '* If the page has been reduced, leave it alone. '* Set WebDoc = WebDB.GetDocumentByUrl(Url(0), 2) WebStatusFlag = WebDoc.GetItemValue("HTTPStatus") If ( DebugFlag = "1" ) Then Print "Retrieve status :" + WebStatusFlag(0) End If If ( WebStatusFlag(0) = "200" ) Or (WebStatusFlag(0) = "201") Or (WebStatusFlag(0) = "304") Then NumDocsRefreshed = NumDocsRefreshed+1 Else NumDocsReloadErrors = NumDocsReloadErrors + 1 End If Else If CurrentDoc.HasItem("Body") Then Set WebDoc = WebDB.GetDocumentByUrl(Url(0), 2) WebStatusFlag = WebDoc.GetItemValue("HTTPStatus") If ( DebugFlag = "1" ) Then Print "Retrieve status :" + WebStatusFlag(0) End If If ( WebStatusFlag(0) = "200" ) Or (WebStatusFlag(0) = "201") Or (WebStatusFlag(0) = "304") Then NumDocsRefreshed = NumDocsRefreshed+1 Else NumDocsReloadErrors = NumDocsReloadErrors + 1 End If Else Goto NextDocument End If End If NextDocument: '* '* We are done with the current document, '* continue with the next. '* Next '* '* Let's be good and refresh the view so that '* it doesn't take so long for the first user '* that connects when we're done. '* Set WebAllView = WebDB.GetView("($All)") Call WebAllView.Refresh '* '* Display how many documents we refreshed out of the total number '* we found that were candidates for refreshing. '* If ( DebugFlag = "1" ) Then Print "------------------------------------------------------------------------------------------------------------" End If If ( DebugFlag = "1" ) Then Print "Refreshed " + Cstr(NumDocsRefreshed) + " because they had been modified" Print "Unable to refresh " + Cstr(NumDocsReloadErrors) + " because of network or HTTP server problems " End If If ( DebugFlag = "1" ) Then Print "Refreshed "+ Cstr(NumDocsRefreshed+NumDocsRefreshedNotToday+NumDocsRefreshedBadLMDate) +" document(s) out of " + Cstr( webcoll.count) End If If ( DebugFlag = "1" ) Then Print "==============================================================" End If Else If (DebugFlag = "1" ) Then Print "Unable to find the correct admin document. " Print "Refresh agent did not refresh." End If End If End Sub O=Lotus Notes O=Lotus Notes PURSAFO |.:#U O=Lotus Notes CN=Lotus Notes Template Development/O=Lotus Notes PURSAFO Fde!f^^ $TITLE $AssistType $AssistLastRun $AssistDocCount $AssistFlags $AssistTrigger $AssistInfo $AssistQuery $AssistAction $AssistAction_Ex Categori_zeK _Edit Document Send Docu_ment _Open URL _Home WebFolders 0S0E (Home) 0S0E _Directory Search Search 0S0E _Forward _AdministrationKT WebAdmin _Move to Folder... _Remove from Folder... Home NavigatorX WebFolders 0S0E (Home) 0S0E WebFolders| 0S0E Views NavigatorKb WebFolders 0S0E (All Documents) 0S0E WebFolders| 0S0E Recommended Navigator WebFolders 0S0E (Recommended) 0S0E WebFolders| 0S0E O=Lotus Notes O=Lotus Notes PURSAFO |.:#U O=Lotus Notes CN=Lotus Notes Template Development/O=Lotus Notes PURSAFO Fde!f^^ $ACTIONS $TITLE $Name $Index $Formula $FormulaClass $VIEWFORMAT $Comment Launch URLv SaveOptions [WebMaster] 1S2S3R12S SaveOptions [WebMaster] SaveOptions SaveOptions Enter a URL to Launch: httpF mailtoF gopherF fingerF You must enter the protocol for the url string. 0S0E URLYou must enter the protocol for the URl (eg. http://www.lotus.com) 0S0E Click here to launch: Enter a descriptive comment (the title is the default): Comments If you see this form, you are using a version of the Notes Client that does not support auto-launching of URL links in Notes forms. See your Notes administrator to either upgrade your software to version 4.1 or later, or to revert this Notes application to an earlier version. Why do I have to do this? Select a category for the document: Content Art and Culture |0Business and Finance |1Computers and Internet |2Education |3Entertainment |4Government |5Publications |6Recreation and Sports |7Reference |8Shopping |9 SaveOptions O=Lotus Notes O=Lotus Notes PURSAFO |.:#U O=Lotus Notes CN=Lotus Notes Template Development/O=Lotus Notes PURSAFO Fde!f^^ $TITLE $FormUsers $AUTOLAUNCH $INFO $$ScriptName $$FormAction1 $$FormAction6 $BODY Categori_zeK _Edit Document Send Docu_ment _Forward _Move to Folder... _Remove from Folder... O=Lotus Notes O=Lotus Notes PURSAFO |.:#U O=Lotus Notes CN=Lotus Notes Template Development/O=Lotus Notes PURSAFO Fde!f^^ <<b.0 $TITLE $Index $Formula $FormulaClass $VIEWFORMAT $Comment $ACTIONS '++LotusScript Development Environment:2:5:(Options):0:74 Option Public '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub UpdateAddressBook Declare Sub Initialize Declare Sub ChangeStatusCodes Declare Sub ChangeURLField Declare Sub ReformatHeader Declare Sub RenameHTMLSourceField Declare Sub RenameCDTextField Declare Sub RenamePrivatePage '++LotusScript Development Environment:2:5:(Declarations):0:10 Dim Session As notessession Dim WebDB As Notesdatabase Dim CurrentWebPage As Notesdocument Dim WebColl As notesdocumentcollection '++LotusScript Development Environment:2:2:UpdateAddressBook:1:8 Sub UpdateAddressBook Dim ServerView As notesview Dim ServerDocument As NotesDocument Dim WebAdminView As Notesview Dim AdminDoc As notesdocument Dim InterNotesServer As String Set WebAdminView = WebDB.GetView("($Admin)") If ( Session.IsOnServer ) Then InterNotesServer = Session.Username Else InterNotesServer = WebDB.Server End If Set WebAdminDoc = WebAdminView.GetDocumentByKey(InterNotesServer, False) If Not(WebAdminDoc Is Nothing) Then Dim PublicAddressBook As New Notesdatabase(InterNotesServer, "names.nsf") Set ServerView = PublicAddressBook.GetView("($Servers)") Set Serverdocument = ServerView.Getdocumentbykey(InterNotesServer, False) If Not (Serverdocument Is Nothing) Then If Serverdocument.WebDbName(0) = "" Then Serverdocument.WebDbName(0) = "web.nsf" Dim services As Variant services= webadmindoc.services Call ServerDocument.ReplaceitemValue("WebServices", Services) Call Serverdocument.Replaceitemvalue("WebRetrievers", WebAdminDoc.C_users(0)) Call Serverdocument.Replaceitemvalue("WebLogLevel", WebAdminDoc.Verbose(0)) Call Serverdocument.Replaceitemvalue("SMTP_Domain", WebAdminDoc.SMTP_Domain(0)) Dim allowaccess As Variant allowaccess = webadmindoc.allow_access Call Serverdocument.Replaceitemvalue("WebAllow", allowaccess) Dim denyaccess As Variant denyaccess = webadmindoc.deny_access Call Serverdocument.Replaceitemvalue("WebDeny", denyaccess) Call Serverdocument.Replaceitemvalue("Proxy_HTTP", WebAdminDoc.Proxy_HTTP(0)) Call Serverdocument.Replaceitemvalue("Proxy_FTP" , WebAdminDoc.Proxy_FTP(0)) Call Serverdocument.Replaceitemvalue("Proxy_Gopher", WebAdminDoc.Proxy_Gopher(0)) Dim noproxy As Variant noproxy = webadmindoc.no_proxy Call Serverdocument.replaceitemvalue("No_Proxy", noproxy) Else Print "Error: Upgrade Agent is unable to locate Server Document in the Public Address Book on this server." Exit Sub End If Else Print "Error: Upgrade Agent is unable to locate the current Administration document." Exit Sub End If End Sub '++LotusScript Development Environment:2:2:Initialize:1:10 Sub Initialize Set Session = New notessession Set WebDB = Session.Currentdatabase Dim CuttoffTime As New NotesDateTime ("1/1/94") Select Case Msgbox("The Upgrade Agent is about to modify the settings in your InterNotes Servers Address book. Would you like " _ + "those updates to be made now? Clicking No indicates that you will make these changes manually. Please see the release notes for instructions" _ + ".",36,"Modify Web Navigator Settings") Case 6 UpdateAddressBook Case 7 Goto Continue End Select Continue: Set WebColl = WebDB.Search("((Form=""HTMLForm"") | ($Title = ""HTMLFormDoc"")) ", CuttoffTime, 0) If WebColl.count = 0 Then Print "Upgrade agent has not found any documents to update." Exit Sub End If For j = 1 To WebColl.count Set CurrentWebPage = WebColl.GetNthDocument(j) If CurrentWebPage.hasitem("Status") And Not(CurrentWebPage.hasitem("HTTPStatus")) Then ChangeStatusCodes End If If CurrentWebPage.hasitem("$URL1") Then ChangeURLField End If If CurrentWebPage.hasitem("$HTTPHeaders") Then ReformatHeader End If If CurrentWebPage.hasitem("HTML_TEXT") Then RenameHTMLSourceField End If If CurrentWebPage.hasitem("CD_TEXT") Then RenameCDTextField End If If CurrentWebPage.hasitem("Privacy_flags") Then RenamePrivatePage End If Next End Sub '++LotusScript Development Environment:2:2:ChangeStatusCodes:1:8 Sub ChangeStatusCodes Dim Status As String Dim Item As NotesItem Status = CurrentWebPage.status(0) Select Case Status Case "0" Set Item = New NotesItem(CurrentWebPage, "HTTPStatus", "200") Case "-14" Set Item = New Notesitem(CurrentWebPage, "HTTPStatus", "401") Case "-15" Set Item = New Notesitem(CurrentWebPage, "HTTPStatus", "402") Case "-16" Set Item = New Notesitem(CurrentWebPage, "HTTPStatus", "403") Case "-17" Set Item = New Notesitem(CurrentWebPage, "HTTPStatus", "404") Case "-18" Set Item = New Notesitem(CurrentWebPage, "HTTPStatus", "402") Case "-19" Set Item = New Notesitem(CurrentWebPage, "HTTPStatus", "500") Case "-20" Set Item = New Notesitem(CurrentWebPage, "HTTPStatus", "501") Case "-23" Set Item = New Notesitem(CurrentWebPage, "HTTPStatus", "405") Case "-24" Set Item = New Notesitem(CurrentWebPage, "HTTPStatus", "406") Case "-25" Set Item = New Notesitem(CurrentWebPage, "HTTPStatus", "407") Case "-26" Set Item = New Notesitem(CurrentWebPage, "HTTPStatus", "408") Case "-27" Set Item = New Notesitem(CurrentWebPage, "HTTPStatus", "409") Case "-28" Set Item = New Notesitem(CurrentWebPage, "HTTPStatus", "410") Case "-29" Set Item = New Notesitem(CurrentWebPage, "HTTPStatus", "502") Case "-30" Set Item = New Notesitem(CurrentWebPage, "HTTPStatus", "503") Case "-31" Set Item = New Notesitem(CurrentWebPage, "HTTPStatus", "504") Case Else Set Item = New Notesitem(CurrentWebPage, "HTTPStatus", "200") End Select Call CurrentWebPage.Save(True,False) End Sub '++LotusScript Development Environment:2:2:ChangeURLField:1:8 Sub ChangeURLField Dim Item As NotesItem Dim URLFieldNum As Integer URLFieldNum = 1 While CurrentWebPage.HasItem("$URL"+Cstr(URLFieldNum)) Set Item = CurrentWebPage.GetFirstItem("$URL"+Cstr(URLFieldNum)) Call CurrentWebPage.CopyItem( item, "URLLinks"+Cstr(URLFieldNum)) Call CurrentWebpage.RemoveItem("$URL"+Cstr(URLFieldNum)) URLFieldNum = URLFieldNum+1 Wend Call CurrentWebPage.Save(True,False) End Sub '++LotusScript Development Environment:2:2:ReformatHeader:1:8 Sub ReformatHeader Dim HeaderField As Variant HeaderField = CurrentWebPage.Getitemvalue("$HTTPHeaders") Forall j In Headerfield If j = "" Then Exit Forall HeaderItem$ = Left( j , Instr( 1, j, ":" , 1)-1) HeaderValue$ = Right( j, (Len(j)-2) - (Instr( 1, j, ":" , 1)-1)) Dim item As New notesitem( CurrentWebPage, "HTTP"+HeaderItem$, HeaderValue$) End Forall Call CurrentWebPage.RemoveItem("$HTTPHeaders") Call CurrentWebPage.Save(True, False) End Sub '++LotusScript Development Environment:2:2:RenameHTMLSourceField:1:8 Sub RenameHTMLSourceField Dim item As notesitem Set item = CurrentWebPage.GetFirstItem("HTML_TEXT") Call CurrentWebPage.CopyItem(item, "HTMLSource") Call CurrentWebPage.Removeitem("HTML_TEXT") Call CurrentWebPage.Save(True,False) End Sub '++LotusScript Development Environment:2:2:RenameCDTextField:1:8 Sub RenameCDTextField Dim item As notesitem Set item = CurrentWebPage.GetFirstItem("CD_TEXT") Call CurrentWebPage.CopyItem(item, "Body") Call CurrentWebPage.Removeitem("CD_TEXT") Call CurrentWebPage.Save(True,False) End Sub '++LotusScript Development Environment:2:2:RenamePrivatePage:1:8 Sub RenamePrivatePage If CurrentWebPage.Privacy_flags(0) = 1 Then Dim item As New notesitem( CurrentWebPage, "PrivatePage", "1") Call CurrentWebPage.Removeitem("Privacy_flags") Call CurrentWebPage.Save(True,False) End If End Sub Nd P Nd P, Nd S8 Nd SD Nd SP Nd Pl O=Lotus Notes O=Lotus Notes PURSAFO |.:#U O=Lotus Notes CN=Lotus Notes Template Development/O=Lotus Notes PURSAFO Fde!f^^ $TITLE $AssistType $AssistLastRun $AssistDocCount $AssistFlags $AssistTrigger $AssistInfo $AssistQuery $AssistAction $AssistAction_Ex Digital Equipment Corporationhttp://www.digital.com/Digital Equipment CorporationLaunch URL2 CN=Dave Newbold/O=IrisCN=Teresa Deane/O=IrisCN=Dave Newbold/O=Iris ############################################## Access HP - Welcome to Hewlett-Packardhttp://www.hp.com/Hewlett-Packard CorporationLaunch URL2 CN=Dave Newbold/O=IrisCN=Teresa Deane/O=IrisCN=Dave Newbold/O=Iris ############################################ The IBM world wide web home pagehttp://www.ibm.com/IBM CorporationLaunch URL2 CN=Dave Newbold/O=IrisCN=Teresa Deane/O=IrisCN=Dave Newbold/O=Iris ########################################################## Welcome to Intelhttp://www.intel.com/Intel CorporationLaunch URL2 CN=Dave Newbold/O=IrisCN=Teresa Deane/O=IrisCN=Dave Newbold/O=Iris ######### Lotus Home Pagehttp://www.lotus.com/Lotus Development CorporationLaunch URL2 CN=Dave Newbold/O=IrisCN=Teresa Deane/O=IrisCN=Dave Newbold/O=Iris ########################################################## Microsoft Corporationhttp://www.microsoft.com/Microsoft CorporationLaunch URL2 CN=Dave Newbold/O=IrisCN=Teresa Deane/O=IrisCN=Dave Newbold/O=Iris ########################################################## Welcome to Netscapehttp://www.netscape.com/Netscape CorporationLaunch URL2 CN=Dave Newbold/O=IrisCN=Teresa Deane/O=IrisCN=Dave Newbold/O=Iris Olivetti WWW Server - Home PageLaunch URLhttp://www.olivetti.it/Olivetti Corporation2 CN=Dave Newbold/O=IrisCN=Teresa Deane/O=IrisCN=Dave Newbold/O=Iris ############################################# Sun Microsystemshttp://www.sun.com/Sun MicrosystemsLaunch URL2 CN=Dave Newbold/O=IrisCN=Teresa Deane/O=IrisCN=Dave Newbold/O=Iris ############ BYTE MagazineLaunch URLhttp://www.byte.com/BYTE Magazine6 CN=Dave Newbold/O=IrisCN=Teresa Deane/O=IrisCN=Dave Newbold/O=Iris ######### The WWW Virtual Library: Computinghttp://src.doc.ic.ac.uk/bySubject/Computing/Overview.htmlThe WWW Virtual Library: ComputingLaunch URL2 CN=Dave Newbold/O=IrisCN=Teresa Deane/O=IrisCN=Dave Newbold/O=Iris ########################################################## InterNIC Directory and Database Services Home Pagehttp://ds.internic.net/InterNIC Directory and Database Services (AT&T)Launch URL2 CN=Dave Newbold/O=IrisCN=Teresa Deane/O=IrisCN=Dave Newbold/O=Iris ####### IETF Home Pagehttp://www.ietf.cnri.reston.va.us/home.htmlInternet Engineering Task ForceLaunch URL2 CN=Dave Newbold/O=IrisCN=Teresa Deane/O=IrisCN=Dave Newbold/O=Iris ####################################### Internet Society Home Pagehttp://www.isoc.org/Internet SocietyLaunch URL2 CN=Dave Newbold/O=IrisCN=Teresa Deane/O=IrisCN=Dave Newbold/O=Iris The World Wide Web Consortium (W3C)http://www.w3.org/pub/WWW/World Wide Web ConsortiumLaunch URL2 CN=Dave Newbold/O=IrisCN=Teresa Deane/O=IrisCN=Dave Newbold/O=Iris ######################################### The Web Developer's Virtual Libraryhttp://www.stars.com/Web Developer's Virtual LibraryLaunch URL2 CN=Dave Newbold/O=IrisCN=Teresa Deane/O=IrisCN=Dave Newbold/O=Iris ######################################## Launch URLAskERIC Home Pagehttp://ericir.syr.edu/3 CN=Teresa Deane/O=IrisCN=Dave Newbold/O=Iris ######################## Launch URLhttp://www.gsn.orgGlobal SchoolNet Foundation Home Page3 CN=Teresa Deane/O=IrisCN=Dave Newbold/O=IrisCN=Teresa Deane/O=Iris ######################################## Launch URLJohn F. Kennedy School of Government News Officehttp://ksgwww.harvard.edu/~ksgpress/ksgnews.htm3 CN=Teresa Deane/O=IrisCN=Dave Newbold/O=Iris ################################ Launch URLThe CTC K-12 Gatewayshttp://www.tc.cornell.edu/Edu/MathSciGateway/about.html3 CN=Teresa Deane/O=IrisCN=Dave Newbold/O=Iris ################################################### Launch URLThe MIT Home Pagehttp://web.mit.edu/3 CN=Teresa Deane/O=IrisCN=Dave Newbold/O=Iris ########################### Launch URLNational PTAhttp://www.pta.org/3 CN=Teresa Deane/O=IrisCN=Dave Newbold/O=Iris ################################ Launch URLSEDS Internet Party Househttp://www.seds.org/3 CN=Teresa Deane/O=IrisCN=Dave Newbold/O=Iris ################## Launch URLNFL.COM: Front pagehttp://www.nfl.com/7 CN=Teresa Deane/O=Iris##### Launch URLTech Corps home pagehttp://www.ustc.org/3 CN=Teresa Deane/O=IrisCN=Dave Newbold/O=Iris ####################### Launch URLhttp://www.nlm.nih.gov/research/visible/visible_human.htmlHyperDOC: The Visible Human Project3 CN=Teresa Deane/O=IrisCN=Dave Newbold/O=IrisCN=Teresa Deane/O=Iris ########################################################## Launch URLThe World Lecture Hallhttp://www.utexas.edu/world/lecture/3 CN=Teresa Deane/O=IrisCN=Dave Newbold/O=Iris ##### Launch URLOther On-Line Educational Resourceshttp://www.ed.gov/EdRes/EdSupport.html3 CN=Teresa Deane/O=IrisCN=Dave Newbold/O=Iris ###################################################### Launch URLOnline Educational Resourceshttp://quest.arc.nasa.gov/OER/3 CN=Teresa Deane/O=IrisCN=Dave Newbold/O=Iris ##### Launch URLEDUCOM-Home Pagehttp://www.educom.edu/3 CN=Teresa Deane/O=IrisCN=Dave Newbold/O=Iris ######################### >Y5.D Launch URLHotList of K-12 Internet School Siteshttp://sendit.sendit.nodak.edu/k12/3 CN=Teresa Deane/O=IrisCN=Dave Newbold/O=Iris ####################################################### Launch URLNCSA Education & Outreach Home Pagehttp://www.ncsa.uiuc.edu/Edu/EduHome.html3 CN=Teresa Deane/O=IrisCN=Dave Newbold/O=Iris ################################################### Launch URLMetaCenter Education: Programs for K-12http://www.tc.cornell.edu/Edu/MetaCenter/EduK-12.html3 CN=Teresa Deane/O=IrisCN=Dave Newbold/O=Iris ################################### Launch URLSciEd: Science and Mathematics Education Resourceshttp://www-hpcc.astro.washington.edu/scied/science.html3 CN=Teresa Deane/O=IrisCN=Dave Newbold/O=Iris ###################### Launch URLWeb66: International WWW School Registryhttp://web66.coled.umn.edu/schools.html3 CN=Teresa Deane/O=IrisCN=Dave Newbold/O=Iris ################################################ Launch URLU.S. Department of Educationhttp://www.ed.gov/3 CN=Teresa Deane/O=IrisCN=Dave Newbold/O=Iris ################# Launch URLThe World-Wide Web Virtual Library: Mathematicshttp://euclid.math.fsu.edu/Science/math.html3 CN=Teresa Deane/O=IrisCN=Dave Newbold/O=Iris #################################### ########################################################## ########################################################## Welcome to MoneyLaunch URLhttp://pathfinder.com/@@lnX93MHEkwAAQBdl/money/moneyhome.htmlMoney Magazine: Personal Finance1 CN=Dave Newbold/O=IrisCN=Teresa Deane/O=IrisCN=Dave Newbold/O=Iris ########################################## Welcome To The Monster Board!http://www.monster.com/Monster Board Career SiteLaunch URL1 CN=Dave Newbold/O=IrisCN=Teresa Deane/O=IrisCN=Dave Newbold/O=Iris ################## NETworth by GALT Technologieshttp://networth.galt.com/www/home/networth.htmlNetworth Launch URL1 CN=Dave Newbold/O=IrisCN=Teresa Deane/O=IrisCN=Dave Newbold/O=Iris ########## U.S. Securities & Exchange Commissionhttp://www.sec.gov/US Securities & Exchange CommissionLaunch URL1 CN=Dave Newbold/O=IrisCN=Teresa Deane/O=IrisCN=Dave Newbold/O=Iris AT&T Internet Toll Free 800 Directoryhttp://www.tollfree.att.net/dir800/AT&T Internet Toll Free 800 DirectoryLaunch URL1 CN=Dave Newbold/O=IrisCN=Teresa Deane/O=IrisCN=Dave Newbold/O=Iris ################################################## FinanceNet WWW Home Pagehttp://www.financenet.gov/FinanceNetLaunch URL1 CN=Dave Newbold/O=IrisCN=Teresa Deane/O=IrisCN=Dave Newbold/O=Iris ################################### FedEx Airbill Trackinghttp://www.fedex.com/track_it.htmlFedex package trackingLaunch URL1 CN=Dave Newbold/O=IrisCN=Teresa Deane/O=IrisCN=Dave Newbold/O=Iris ################ UPS Package Trackinghttp://www.ups.com/tracking/tracking.htmlUPS package trackingLaunch URL1 CN=Dave Newbold/O=IrisCN=Teresa Deane/O=IrisCN=Dave Newbold/O=Iris ############## Ad Age - It's All About MarketingLaunch URLhttp://www.adage.com/Advertising Age Magazine1"Lotus Development" "3/25/96" CN=Dave Newbold/O=IrisCN=Teresa Deane/O=IrisCN=Dave Newbold/O=Iris ########################### Barron's Home PageLaunch URLhttp://www.barrons.comBarron's magazine1 CN=Dave Newbold/O=IrisCN=Teresa Deane/O=IrisCN=Dave Newbold/O=IrisCN=Teresa Deane/O=Iris ###### The Economisthttp://www.economist.com/The EconomistLaunch URL1 CN=Dave Newbold/O=IrisCN=Teresa Deane/O=IrisCN=Dave Newbold/O=Iris ############################################ Quote.Com Home Pagehttp://www.quote.com/Quote.com home pageLaunch URL1 CN=Dave Newbold/O=IrisCN=Teresa Deane/O=IrisCN=Dave Newbold/O=Iris #################################### The American Stock Exchange - The Smarter Place to Behttp://www.amex.com/American Stock ExchangeLaunch URL1 CN=Dave Newbold/O=IrisCN=Teresa Deane/O=IrisCN=Dave Newbold/O=Iris ########################################################## Market Places and Quotationshttp://www.wiso.gwdg.de/ifbg/stock1.htmlGlobal Market Places and QuotationsLaunch URL1 CN=Dave Newbold/O=IrisCN=Teresa Deane/O=IrisCN=Dave Newbold/O=Iris ######################################################## CommerceNet Homehttp://www.commerce.net/Launch URL1 CN=Teresa Deane/O=IrisCN=Dave Newbold/O=Iris ####################### Welcome to Mark Twain Bankhttp://www.marktwain.com/Launch URL1 CN=Teresa Deane/O=IrisCN=Dave Newbold/O=Iris ############ The Financial Data Finderhttp://www.cob.ohio-state.edu/dept/fin/osudata.htmLaunch URL1 CN=Teresa Deane/O=IrisCN=Dave Newbold/O=Iris #################################################### Intuit Home Pagehttp://www.intuit.com/Launch URL1 CN=Teresa Deane/O=IrisCN=Dave Newbold/O=Iris ######################### Utne Readerhttp://www.utne.com/reader/magazine.htmlUtne Reader: The Alternative PressLaunch URL6 CN=Dave Newbold/O=IrisCN=Teresa Deane/O=IrisCN=Dave Newbold/O=Iris ########## All titles listed alphabeticallyLaunch URLhttp://www.enews.com/monster/Electronic Newsstand: Monster Magazine List6 CN=Dave Newbold/O=IrisCN=Teresa Deane/O=IrisCN=Dave Newbold/O=IrisCN=Teresa Deane/O=Iris ############### Discover MagazineLaunch URLhttp://www.dc.enews.com/magazines/discover/Discover Magazine6 CN=Dave Newbold/O=IrisCN=Teresa Deane/O=IrisCN=Dave Newbold/O=Iris ################## Business Weekhttp://www.dc.enews.com/magazines/bw/Business WeekLaunch URL6 CN=Dave Newbold/O=IrisCN=Teresa Deane/O=IrisCN=Dave Newbold/O=Iris ################################ Top of the news(December 3, 1995 10:46 PM)http://www.usatoday.com/USA TodayLaunch URL6 CN=Dave Newbold/O=IrisCN=Teresa Deane/O=IrisCN=Dave Newbold/O=Iris #################### Mercury Center Home Pagehttp://www.sjmercury.com/San Jose Mercury News (USA)Launch URL6 CN=Dave Newbold/O=IrisCN=Teresa Deane/O=IrisCN=Dave Newbold/O=Iris ################### Launch URLNBA.comhttp://www.nba.com/7 CN=Teresa Deane/O=Iris################# Jerusalem Posthttp://www.jpost.co.il/Jerusalem PostLaunch URL6 CN=Dave Newbold/O=IrisCN=Teresa Deane/O=IrisCN=Dave Newbold/O=Iris ############################################ Welcome to Boston.com!Launch URLhttp://www.boston.com/globe/cgi-bin/globe.cgi?top/daily.htmThe Boston Globe6 CN=Dave Newbold/O=IrisCN=Teresa Deane/O=IrisCN=Dave Newbold/O=Iris ########################################################## TimesFax 2http://nytimesfax.com/cgi-bin/tmp/loginTimesFax (New York Times)Launch URL6 CN=Dave Newbold/O=IrisCN=Teresa Deane/O=IrisCN=Dave Newbold/O=Iris ##################### Welcome to the BBChttp://www.bbcnc.org.uk/British Broadcasting CorporationLaunch URL6 CN=Dave Newbold/O=IrisCN=Teresa Deane/O=IrisCN=Dave Newbold/O=Iris ##################### PEOPLELaunch URLhttp://pathfinder.com/@@lnX93MHEkwAAQBdl/people/toc.htmlPeople Magazine6 CN=Dave Newbold/O=IrisCN=Teresa Deane/O=IrisCN=Dave Newbold/O=Iris ################## LIFE Photo Home PageLaunch URLhttp://pathfinder.com/@@lnX93MHEkwAAQBdl/Life/lifehome.htmlLife Magazine6 CN=Dave Newbold/O=IrisCN=Teresa Deane/O=IrisCN=Dave Newbold/O=Iris National ReviewLaunch URLhttp://pathfinder.com/@@lnX93MHEkwAAQBdl/NR/National Review Magazine6 CN=Dave Newbold/O=IrisCN=Teresa Deane/O=IrisCN=Dave Newbold/O=Iris ############ FORTUNELaunch URLhttp://pathfinder.com/@@lnX93MHEkwAAQBdl/fortune/index.htmlFortune Magazine6 CN=Dave Newbold/O=IrisCN=Teresa Deane/O=IrisCN=Dave Newbold/O=Iris ############# Asiaweek Home Pagehttp://pathfinder.com/@@NyO*TcHEkwAAQBhl/Asiaweek/Asiaweek OnLineLaunch URL6 CN=Dave Newbold/O=IrisCN=Teresa Deane/O=IrisCN=Dave Newbold/O=Iris ############ NPR Onlinehttp://www.npr.org/National Public RadioLaunch URL6 CN=Dave Newbold/O=IrisCN=Teresa Deane/O=IrisCN=Dave Newbold/O=Iris ############################################# News & Developmentshttp://nytsyn.com/live/News3/Computer News DailyLaunch URL6 CN=Dave Newbold/O=IrisCN=Teresa Deane/O=IrisCN=Dave Newbold/O=Iris ############################ Welcome to PC World Onlinehttp://www.pcworld.com/PC World OnLineLaunch URL6 CN=Dave Newbold/O=IrisCN=Teresa Deane/O=IrisCN=Dave Newbold/O=Iris ############################### ########################################################## ########################################################## Welcome to GNNhttp://nearnet.gnn.com/gnn/Global Network NavigatorLaunch URL6 CN=Dave Newbold/O=IrisCN=Teresa Deane/O=IrisCN=Dave Newbold/O=Iris ############################## Kansai-WWWhttp://mai.hyg.med.kyoto-u.ac.jp/KansaiWWW/index.htmlKansai-WWWLaunch URL6 CN=Dave Newbold/O=IrisCN=Teresa Deane/O=IrisCN=Dave Newbold/O=Iris ###################### News on the netLaunch URLhttp://www.reporter.org/news/News on the net (Listing of Publications)6 CN=Dave Newbold/O=IrisCN=Teresa Deane/O=IrisCN=Dave Newbold/O=IrisCN=Teresa Deane/O=Iris ########################################## 10Admin1 @60302Underline/BlueCourierTimes 11CourierCourierTimes11Your Server Name Here CN=Dave Newbold/O=IrisLotus Notes ######################################### GoSKI Network - The Ultimate Snow Sports GuideLaunch URLhttp://www.goski.com/GoSKI Network - The Ultimate Snow Sports Guide7 CN=Dave Newbold/O=IrisCN=Teresa Deane/O=IrisCN=Dave Newbold/O=IrisCN=Teresa Deane/O=Iris########################################## City.NetLaunch URLhttp://www.city.net/Travel Infromation (City.Net)7 CN=Dave Newbold/O=IrisCN=Teresa Deane/O=IrisCN=Dave Newbold/O=IrisCN=Teresa Deane/O=Iris################################## Launch URLESPNET SportsZonehttp://espnet.sportszone.com/7 CN=Dave Newbold/O=IrisCN=Teresa Deane/O=Iris##################################### Launch URLWorld Wide Web of Sports (@ MIT!)http://www.tns.lcs.mit.edu/cgi-bin/sports/7 CN=Dave Newbold/O=IrisCN=Teresa Deane/O=Iris######## Launch URLSports Illustrated Onlinehttp://pathfinder.com/@@1pwGU1Ji3AAAQJSr/si/7 CN=Dave Newbold/O=IrisCN=Teresa Deane/O=Iris############## Launch URLAquatica Index for Aquatics and Small Crafthttp://wwww.aquatica.com/Aquatica/7 CN=Teresa Deane/O=Iris############################## Launch URLSoccer Standingshttp://www.sportsnetwork.com/soccer/soccer.html7 CN=Teresa Deane/O=Iris############################################ Launch URLMajor League Baseball MLB@BAThttp://www.majorleaguebaseball.com/7 CN=Teresa Deane/O=Iris########################################### Launch URLNational Hockey League Official Web Sitehttp://www.nhl.com/7 CN=Teresa Deane/O=Iris################################################ ########################################################## Launch URLGolfWeb - Everything Golf on the World Wide Web!http://www.golfweb.com/7 CN=Teresa Deane/O=Iris#################################### Launch URLCool Runninghttp://www.coolrunning.com/7 CN=Teresa Deane/O=Iris#### Launch URLALLSPORTS http://www.allsports.com/7 CN=Teresa Deane/O=Iris####### Launch URLThe Sailing Sitehttp://www.gosailing.com/7 CN=Teresa Deane/O=Iris## Launch URLThe Boating Yellow Pageshttp://members.aol.com/markmorin1/boatdirectory/boatintr.htm7 CN=Teresa Deane/O=Iris####################### Launch URLProfessional Bowler Associationhttp://www.pba.org/7 CN=Teresa Deane/O=Iris######################################################### Launch URLWelcome to SportsLine USAhttp://web2.sportsline.com/index.html7 CN=Teresa Deane/O=Iris############################################# Launch URLWalt Disney Worldhttp://www.disney.com/DisneyWorld/index.html7 CN=Teresa Deane/O=Iris############################################## Launch URLWelcome to Universal Studios Florida http://www.usf.com/7 CN=Teresa Deane/O=Iris################################################## Kaleidospacehttp://kspace.com/Kaleidospace (Independent Internet Artists)Launch URL0 CN=Dave Newbold/O=IrisCN=Teresa Deane/O=IrisCN=Dave Newbold/O=IrisCN=Teresa Deane/O=Iris################## The Andy Warhol Museum Home PageLaunch URLhttp://www.warhol.org/warhol/Andy Warhol Museum (Pittsburgh, USA)0 CN=Dave Newbold/O=IrisCN=Teresa Deane/O=IrisCN=Dave Newbold/O=IrisCN=Teresa Deane/O=Iris########################################################## The Art Institute of Chicagohttp://www.artic.edu/aic/firstpage.htmlArt Institute of ChicagoLaunch URL0 CN=Dave Newbold/O=IrisCN=Teresa Deane/O=IrisCN=Dave Newbold/O=IrisCN=Teresa Deane/O=Iris Art on the Nethttp://www.art.net/Art on the NetLaunch URL0 CN=Dave Newbold/O=IrisCN=Teresa Deane/O=IrisCN=Dave Newbold/O=IrisCN=Teresa Deane/O=Iris############################################ WebMuseum: Bienvenue! (Welcome from the curator)Launch URLhttp://sunsite.unc.edu/louvre/Le Louvre Web Museum (UNC, USA) 0 CN=Dave Newbold/O=IrisCN=Teresa Deane/O=IrisCN=Dave Newbold/O=IrisCN=Teresa Deane/O=Iris############################################ Launch URLArtWebhttp://www.bitech.com/gallery/0 CN=Teresa Deane/O=Iris####### The Smithsonian Institution Home Pagehttp://www.si.edu/Smithsonian InstitutionLaunch URL0 CN=Dave Newbold/O=IrisCN=Teresa Deane/O=IrisCN=Dave Newbold/O=IrisCN=Teresa Deane/O=Iris############# Philadelphia Museum of Arthttp://www.libertynet.org/~pma/Philadelphia Museum of Art (Philadelphia, USA)Launch URL0 CN=Dave Newbold/O=IrisCN=Teresa Deane/O=IrisCN=Dave Newbold/O=IrisCN=Teresa Deane/O=Iris#################################################### UCI Bookstore: Ansel Adams Home Pagehttp://bookweb.cwis.uci.edu:8042/AdamsHome.htmlPhotography: Ansel AdamsLaunch URL0 CN=Dave Newbold/O=IrisCN=Teresa Deane/O=IrisCN=Dave Newbold/O=IrisCN=Teresa Deane/O=Iris################################################ Asian Artshttp://www.webart.com/asianart/index.htmlAsian Arts (Journal)Launch URL0 CN=Dave Newbold/O=IrisCN=Teresa Deane/O=IrisCN=Dave Newbold/O=IrisCN=Teresa Deane/O=Iris#################### Welcome to ArtsLinkhttp://pathfinder.com/@@lnX93MHEkwAAQBdl/twep/artslink/ArtsLink Web SiteLaunch URL0 CN=Dave Newbold/O=IrisCN=Teresa Deane/O=IrisCN=Dave Newbold/O=IrisCN=Teresa Deane/O=Iris Minist re de la culturehttp://www.culture.fr/index.htmlMinist re de la cultureLaunch URL0 CN=Dave Newbold/O=IrisCN=Teresa Deane/O=IrisCN=Dave Newbold/O=IrisCN=Teresa Deane/O=Iris############# PhotoCollect Home Pagehttp://www.webart.com/photocollect/home.htmPhotoCollect galleryLaunch URL0 CN=Dave Newbold/O=IrisCN=Teresa Deane/O=IrisCN=Dave Newbold/O=IrisCN=Teresa Deane/O=Iris###### Launch URLCNN - Showbiz News Main Pagehttp://www.cnn.com/SHOWBIZ/index.html0 CN=Dave Newbold/O=IrisCN=Teresa Deane/O=Iris################## Launch URLChristo & Jeanne-Claude Home Pagehttp://pomo.nbn.com/youcan/christo/0 CN=Teresa Deane/O=Iris####################################### Launch URLThe J.R.R. Tolkien Information Pagehttp://www.csclub.uwaterloo.ca/u/relipper/tolkien/rootpage.html0 CN=Teresa Deane/O=Iris######### Launch URLWorld Wide Web Virtual Library: Dancehttp://www.artswire.org/Artswire/www/dance/dance.html0 CN=Teresa Deane/O=Iris################# Launch URLPlaybill On-Linehttp://piano.symgrp.com/playbill/0 CN=Teresa Deane/O=Iris########################################################## Novagate Online Reference Deskhttp://www.novagate.com/novasurf/onlinereference.htmlNovagate Online Reference DeskLaunch URL8 CN=Dave Newbold/O=IrisCN=Teresa Deane/O=IrisCN=Dave Newbold/O=IrisCN=Teresa Deane/O=Iris########################################## The United States Postal Service, Internet Branchhttp://www.usps.gov/United States Postal ServiceLaunch URL8 CN=Dave Newbold/O=IrisCN=Teresa Deane/O=IrisCN=Dave Newbold/O=IrisCN=Teresa Deane/O=Iris########################################################## NTT Home Pagehttp://www.ntt.jp/NTT Home Page (Japanese Reference)Launch URL8 CN=Dave Newbold/O=IrisCN=Teresa Deane/O=IrisCN=Dave Newbold/O=IrisCN=Teresa Deane/O=Iris########################## Asia Studies Ltd.http://asiadata.pacificnet.com/as.htmAsian Country InformationLaunch URL8 CN=Dave Newbold/O=IrisCN=Teresa Deane/O=IrisCN=Dave Newbold/O=IrisCN=Teresa Deane/O=Iris############ NewsPage Home Pagehttp://www.newspage.com/NewsPage (Individual, Inc.)Launch URL8 CN=Dave Newbold/O=IrisCN=Teresa Deane/O=IrisCN=Dave Newbold/O=IrisCN=Teresa Deane/O=Iris###################### Asia-Pacific Informationhttp://sunsite.sut.ac.jp/asia/Asia-Pacific Information (SunSite)Launch URL8 CN=Dave Newbold/O=IrisCN=Teresa Deane/O=IrisCN=Dave Newbold/O=IrisCN=Teresa Deane/O=Iris### Launch URLPCL Map Collectionhttp://www.lib.utexas.edu/Libs/PCL/Map_collection/Map_collection.html8 CN=Teresa Deane/O=Iris#################### Launch URLThe Media History Projecthttp://www.mediahistory.com/8 CN=Teresa Deane/O=Iris###################################################### Launch URLEarth Viewhttp://www.fourmilab.ch/cgi-bin/uncgi/Earth/action?opt=-p8 CN=Teresa Deane/O=Iris######################################## Launch URLConsumer Products Safety Commission Gopher Sitegopher://cpsc.gov/18 CN=Teresa Deane/O=Iris######################################### Launch URLTHE LARGEST COLLECTION OF FREE STUFF ON THE PLANET!!http://theyellowpages.com/8 CN=Teresa Deane/O=Iris############################# Launch URLThe World Factbook 1995http://www.odci.gov/cia/publications/95fact/8 CN=Teresa Deane/O=Iris######################################## Launch URLTHOR+: The Virtual Reference Deskhttp://thorplus.lib.purdue.edu/reference/index.html8 CN=Teresa Deane/O=Iris####################### Launch URLSPO Patent Serviceshttp://www.spo.eds.com/patent.html8 CN=Teresa Deane/O=Iris###################################################### Launch URLThe Ultimate White Pageshttp://www.angelfire.com/pages0/ultimates/8 CN=Teresa Deane/O=Iris######################################### ########################################################## Launch URLWorld Wide Web Yellow Pageshttp://www.mcp.com/nrp/wwwyp/8 CN=Teresa Deane/O=Iris################################################### Launch URLThe Old Farmer's Almanachttp://www.almanac.com/8 CN=Teresa Deane/O=Iris ########################################################## Launch URLJapanese - English Dictionaryhttp://www.wg.omron.co.jp/cgi-bin/j-e8 CN=Teresa Deane/O=Iris######################################### Ml!|k Launch URLInforonics' TitleNethttp://www.infor.com/titlenet.html8 CN=Teresa Deane/O=Iris##################################################### Launch URLEncyberpedia http://www.encyberpedia.com/ency.htm8 CN=Teresa Deane/O=Iris########################################################## Launch URLOneLook Dictionaries, The Faster Finderhttp://www.onelook.com/8 CN=Teresa Deane/O=Iris############################################# Launch URLRoget's Thesaurus of English Words and Phraseshttp://home.thesaurus.com/thesaurus/8 CN=Teresa Deane/O=Iris######################### Welcome to ISNLaunch URLhttp://www4.internet.net/cgi-bin/getNode?node=1&source=webreview&session=3086175Internet Shopping Network9 CN=Dave Newbold/O=IrisCN=Teresa Deane/O=IrisCN=Dave Newbold/O=IrisCN=Teresa Deane/O=Iris#################################### Launch URLThe Branch Mall http://branch.com/9 CN=Dave Newbold/O=IrisCN=Teresa Deane/O=Iris################################################# Launch URLeduMallhttp://edumall.com/edumall/edumall.html9 CN=Dave Newbold/O=IrisCN=Teresa Deane/O=Iris##################################### Launch URL@Net Shopping Mallhttp://www.cybertown.com/cybertown/shopping.html9 CN=Dave Newbold/O=IrisCN=Teresa Deane/O=Iris################# Launch URLMall of the Internethttp://malls.com/awesome/9 CN=Dave Newbold/O=IrisCN=Teresa Deane/O=Iris###################################### Launch URLBertrand Gourmet Storehttp://www.bertrand.com/9 CN=Dave Newbold/O=IrisCN=Teresa Deane/O=Iris##################################### Launch URLL.L. Bean (Outdoors supplier, USA)http://www.llbean.com/9 CN=Dave Newbold/O=IrisCN=Teresa Deane/O=Iris########################### Launch URLLands' End, Inc.http://www.landsend.com/9 CN=Dave Newbold/O=IrisCN=Teresa Deane/O=Iris########################################### ########################################################## Launch URLDealerNethttp://www.dealernet.com/9 CN=Teresa Deane/O=Iris######### Launch URLFlowernethttp://www.flowernet.net/bin/sct221/nb/v4/index.html9 CN=Teresa Deane/O=Iris############################################## Launch URLGreat Food Online - Specialty Gourmet Foodshttp://www.greatfood.com/9 CN=Teresa Deane/O=Iris####################################### Launch URLThe Shopper - Your Guide to Shopping Online Malls & Storeshttp://www.shoppingdirect.com/9 CN=Teresa Deane/O=Iris################### Launch URLThe Internet Mall (tm)http://www.internet-mall.com/9 CN=Teresa Deane/O=Iris######################################################## Launch URLCatalog Shoppinghttp://www.catalogsite.com/9 CN=Teresa Deane/O=Iris Launch URLBook Stacks - Book of Dayshttp://www.books.com/scripts/news.exe9 CN=Teresa Deane/O=Iris############################################ Launch URLTHE WORLD WIDE WEB STOREhttp://www.thewwwstore.com/9 CN=Teresa Deane/O=Iris######################################################## Launch URLMAIN MALL WEB PAGEhttp://maingate.net/mall/9 CN=Teresa Deane/O=Iris Launch URLThe College Shopping Networkhttp://surfcsn.com/9 CN=Teresa Deane/O=Iris ########################################################## Launch URLWelcome to TravelShophttp://www.travelshop.com/9 CN=Teresa Deane/O=Iris ########################################################## EUROPEAN UNION & INTERNETLaunch URLhttp://www.helsinki.fi/~aunesluo/eueng.htmlEuropean Union Internet Directory5 CN=Dave Newbold/O=IrisCN=Teresa Deane/O=IrisCN=Dave Newbold/O=IrisCN=Teresa Deane/O=Iris###################################################### Links to Government Servers and InformationLaunch URLhttp://www.eff.org/govt.htmlGlobal list of Government servers and Information (Large!)5 CN=Dave Newbold/O=IrisCN=Teresa Deane/O=IrisCN=Dave Newbold/O=IrisCN=Teresa Deane/O=Iris########################## Launch URLTHOMAS: Legislative Information on the Internethttp://thomas.loc.gov/5 CN=Dave Newbold/O=IrisCN=Teresa Deane/O=Iris############## Launch URLVoter Information Services (VIS)http://world.std.com/~voteinfo/5 CN=Dave Newbold/O=IrisCN=Teresa Deane/O=Iris#################### ########################################################## ########################################################## Launch URLThe Federal Web Locatorhttp://www.law.vill.edu/Fed-Agency/fedwebloc.html5 CN=Dave Newbold/O=IrisCN=Teresa Deane/O=Iris########### Launch URLUSDA's Home Pagehttp://www.usda.gov/5 CN=Teresa Deane/O=Iris####### Launch URLIRS - The Digital Dailyhttp://www.irs.ustreas.gov/basic/cover.html5 CN=Teresa Deane/O=Iris######################################### Launch URLFAA - Federal Aviation Administrationhttp://www.faa.gov/5 CN=Teresa Deane/O=Iris################################################### Launch URLFood and Drug Administration Home Pagehttp://www.fda.gov/5 CN=Teresa Deane/O=Iris################################################## Launch URLThe Electronic Embassyhttp://www.embassy.org/5 CN=Teresa Deane/O=Iris@ ########################################################## Launch URLCCTA Government Information Servicehttp://www.open.gov.uk/5 CN=Teresa Deane/O=Iris################################################# Launch URLDie Bundesregierung informiert / Facts about Germanyhttp://www.bundesregierung.de/5 CN=Teresa Deane/O=Iris######################### Launch URLJapanese Government Organizationshttp://jw.stanford.edu/GOV/gov.html5 CN=Teresa Deane/O=Iris####################################### Launch URLThe US Department of Transportationhttp://www.dot.gov/5 CN=Teresa Deane/O=Iris##################################################### Launch URLThe NASA Homepagehttp://www.gsfc.nasa.gov/NASA_homepage.html5 CN=Teresa Deane/O=Iris############################################### Launch URLWelcome To The White Househttp://www.whitehouse.gov/WH/Welcome-nt.html5 CN=Teresa Deane/O=Iris##################################### Launch URLOfficial Federal Government Web Siteshttp://lcweb.loc.gov/global/executive/fed.html5 CN=Teresa Deane/O=Iris######################## Launch URLUnited Nations Home Pagehttp://www.un.org/5 CN=Teresa Deane/O=Iris# Launch URLAmerican Student Political Networkhttp://www.cis.yale.edu/ypunion/ASPN.html5 CN=Teresa Deane/O=Iris################################ Launch URLU.S. House Of Representatives - Home Pagehttp://www.house.gov/5 CN=Teresa Deane/O=Iris############################################# ########################################################## Launch URLThe United States Senatehttp://www.senate.gov/5 CN=Teresa Deane/O=Iris ########################################################## Launch URLCanada Site / Site du Canadahttp://canada.gc.ca/5 CN=Teresa Deane/O=Iris ########################################################## Launch URLThe Internet Movie Databasehttp://www.msstate.edu/Movies/4 CN=Dave Newbold/O=IrisCN=Teresa Deane/O=Iris########################## Launch URLThe Dilbert Zonehttp://www.unitedmedia.com/comics/dilbert/4 CN=Dave Newbold/O=IrisCN=Teresa Deane/O=Iris######################### Launch URLMusic News Of The Worldhttp://www.addict.com/ATN/Music_News_Of_The_World/4 CN=Dave Newbold/O=IrisCN=Teresa Deane/O=Iris########## Launch URLEntertainment Extra! Indexhttp://www.ddc.com/extra/4 CN=Dave Newbold/O=IrisCN=Teresa Deane/O=Iris################################ Launch URLHistory of Rock 'n' Rollhttp://www.hollywood.com/rocknroll/4 CN=Dave Newbold/O=IrisCN=Teresa Deane/O=Iris######################## Launch URLVH1 Main Screenhttp://vh1.com/4 CN=Dave Newbold/O=IrisCN=Teresa Deane/O=Iris##################################################### Launch URLMTV Online: Main Pagehttp://mtv.com/4 CN=Dave Newbold/O=IrisCN=Teresa Deane/O=Iris############################################### Launch URLhttp://www.cbs.com/CBS Television Home Page4 CN=Dave Newbold/O=IrisCN=Teresa Deane/O=Iris######################################## Launch URLNBC HTTVhttp://www.nbc.com/4 CN=Dave Newbold/O=IrisCN=Teresa Deane/O=Iris######################################################## Launch URLWhat's On PBS?http://www.pbs.org/programs/4 CN=Dave Newbold/O=IrisCN=Teresa Deane/O=Iris######################################### Launch URLSony Onlinehttp://www.music.sony.com/4 CN=Dave Newbold/O=IrisCN=Teresa Deane/O=Iris############################################## Launch URLThe ABC Television Networkhttp://www.abctelevision.com/4 CN=Teresa Deane/O=Iris#################################################### Launch URLFilm Scoutshttp://www.filmscouts.com/4 CN=Teresa Deane/O=Iris###### Launch URLFilm.com Front Pagehttp://www.film.com/film/admin/about.film.html4 CN=Teresa Deane/O=Iris########################################## Launch URLMovie Maniahttp://www.movievan.com/4 CN=Teresa Deane/O=Iris######## Launch URLThe 3D Gaming Scene - Front Pagehttp://www.pol.umu.se/html/ac/spel.htm4 CN=Teresa Deane/O=Iris##################################### Launch URLThe Chessmaster Networkhttp://www.chessmasternetwork.com/4 CN=Teresa Deane/O=Iris################################################## Launch URLGames Guidehttp://www.ozonline.com.au/gamesguide/4 CN=Teresa Deane/O=Iris########################################################## Launch URLGames Happy Puppy's Front Porchhttp://happypuppy.com/refer/yahoo.html4 CN=Teresa Deane/O=Iris###################################### Welcome to ZD Nethttp://www.zdnet.com/home/filters/mainb.htmlZiff Davis PublishingLaunch URL2 CN=Dave Newbold/O=IrisCN=Teresa Deane/O=IrisCN=Dave Newbold/O=IrisCN=Teresa Deane/O=Iris######### Launch URLThe Single Source Mallhttp://thesinglesource.com/mall/9 CN=Teresa Deane/O=Iris##################################################### Wall Street Journal:HeadlinesLaunch URLhttp://www.wsj.comWall Street Journal (USA)61 CN=Dave Newbold/O=IrisCN=Teresa Deane/O=IrisCN=Dave Newbold/O=IrisCN=Teresa Deane/O=Iris########## FT: News in BriefLaunch URLhttp://www.ft.comFinancial Times: News in Brief (Global)11 CN=Dave Newbold/O=IrisCN=Teresa Deane/O=IrisCN=Dave Newbold/O=IrisCN=Teresa Deane/O=Iris######### Launch URLhttp://www.hardlink.com/~chambers/HLP/The Human Languages Page31 CN=Teresa Deane/O=IrisCN=Dave Newbold/O=IrisCN=Teresa Deane/O=Iris#################################################### Launch URLhttp://www.utv.net.TV Net CN=Dave Newbold/O=IrisCN=Teresa Deane/O=Iris################################################ ShakespeareLaunch URLhttp://the-tech.mit.edu/Shakespeare/Shakespeare, The complete works01 CN=Dave Newbold/O=IrisCN=Teresa Deane/O=IrisCN=Dave Newbold/O=IrisCN=Teresa Deane/O=Iris#### ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## ########################################################## 09/09/96 11:38:02 AM Teresa Deane/Iris updated OtherDomainServers 09/09/96 11:37:56 AM Teresa Deane/Iris added OtherDomainServers 09/09/96 11:37:48 AM Teresa Deane/Iris updated LocalDomainServers 09/09/96 11:37:45 AM Teresa Deane/Iris added LocalDomainServers 03/25/96 09:35:40 PM Lotus Notes deleted Lotus Notes 03/25/96 09:35:29 PM Lotus Notes added [-Default-] 03/25/96 09:35:16 PM Lotus Notes added [OtherDomainServers] 03/25/96 09:35:16 PM Lotus Notes deleted OtherDomainServers 03/25/96 09:35:03 PM Lotus Notes added [LocalDomainServers] 03/25/96 09:35:03 PM Lotus Notes deleted LocalDomainServers 03/25/96 09:34:06 PM Lotus Notes updated Lotus Notes 03/25/96 09:34:06 PM Lotus Notes added Lotus Notes 03/25/96 09:34:06 PM Lotus Notes updated role [WebMaster] 03/25/96 09:34:06 PM Lotus Notes updated -Default- 03/25/96 09:34:06 PM Lotus Notes added LocalDomainServers 03/25/96 09:34:06 PM Lotus Notes added OtherDomainServers 03/25/96 09:34:06 PM Lotus Notes updated -Default- WebMaster -Default- [LocalDomainServers] [OtherDomainServers] [-Default-] LocalDomainServers OtherDomainServers